Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 642 fois - Téléchargée 44 fois
Option Explicit ' Publié par 69VobD3 (DivX-Paradise.net) Public Const gstrQUOTE$ = """" Public Const gstrSEP_DIR$ = "\" Public Function FileExists(ByVal strPathName As String) As Boolean Dim intFileNum As Integer On Error Resume Next strPathName = strUnQuoteString(strPathName) If Right$(strPathName, 1) = gstrSEP_DIR Then strPathName = Left$(strPathName, Len(strPathName) - 1) End If intFileNum = FreeFile Open strPathName For Input As intFileNum FileExists = (Err.Number = 0) Close intFileNum Err.Clear End Function Public Function strUnQuoteString(ByVal strQuotedString As String) strQuotedString = Trim$(strQuotedString) If Mid$(strQuotedString, 1, 1) = gstrQUOTE Then If Right$(strQuotedString, 1) = gstrQUOTE Then strQuotedString = Mid$(strQuotedString, 2, _ Len(strQuotedString) - 2) End If End If strUnQuoteString = strQuotedString End Function
21 juil. 2006 à 17:03
En tout cas, merci pour ta contribution ;)
@+
2 juil. 2002 à 18:09
Déclaration : Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Retourne 0 si le fichier n'existe pas.
1 juil. 2002 à 23:16
Ca serai pas plus simple d'utiliser la fonction Dir qui est incluse dans VB ?
par contre je sais pas si elle exsite dans tte les versions de VB...
1 juil. 2002 à 16:11
1 juil. 2002 à 16:08
Function FileExists(ch as string) as boolean
on error goto fichErreur
FileLen ch
FileExists=true
exit sub
FichErreur:
err.clear
FileExists=false
end function
Non ???
Je sais pas je propose hein, je viens juste de lire le nom de la source, d'apercevoir la longueur du code proposé et il m'est naturellement venu à l'esprit de tapoter ce code, je ne l'ai pas testé bien sûr, mais bon je vois pas pourquoi il marcherait pas...
Allez @+, et essayer plutôt de créer vos codes pour qu'ils fassent ce que VOUS VOULEZ plutôt que de pomper des codes barbares faisant entre autres ce que VOUS VOULIEZ... (j'm'comprends...)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.