VÉRIFIER L'EXISTENCE D'UN FICHIER
Lightness1024!
-
31 août 2001 à 16:12
Glennouchet Messages postés 6 Date d'inscription mercredi 17 février 2010 Statut Membre Dernière intervention 15 juillet 2012 - 7 juil. 2012 à 17:31
Glennouchet Messages postés 6 Date d'inscription mercredi 17 février 2010 Statut Membre Dernière intervention 15 juillet 2012 - 7 juil. 2012 à 17:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/315-verifier-l-existence-d-un-fichier
https://codes-sources.commentcamarche.net/source/315-verifier-l-existence-d-un-fichier
7 juil. 2012 à 17:31
Function FileExists(FileName As String) As Boolean
On Error GoTo ErrorHandler FileExists (GetAttr(FileName) And vbDirectory) 0
GoTo No_Error
ErrorHandler:
FileExists = False
No_Error:
End Function
Ca permet également de ne pas renvoyer true sur un répertoire...
29 juin 2007 à 17:33
ne mélange pas tout, ici, c'est une source en VB6, tu propose un code 'plus simple' mais en .Net...
29 juin 2007 à 17:26
If System.IO.File.Exists(MonFichier) Then ...
23 janv. 2006 à 16:26
Public Function IsFileExisting(ByRef Path As String) As Boolean
IsFileExisting = (GetFileAttributes(Path) <> INVALID_FILE_ATTRIBUTES)
End Function
21 oct. 2005 à 15:17
9 nov. 2004 à 03:10
29 sept. 2003 à 07:17
Lightness: ce genre de commentaire, on s'en passe volontier. Le but ici est (je le rappelle car y'a des gens qui ont un boulet a la place du cerveau):
1/ utilisation du FileSystemObject
2/ Fonction sur laquelle on a la main.
Je suis heureux d'apprendre - à nouveau - que Dir$ est plus simple et patati et patata ...
Mais pourquoi faire simple quand on peut faire compliqué? Surtout si on est payé pour ...
LoL; je fini par croire que ce sont des gens comme toi qui sont simples ...
Allez, bon coding!!
"Deux choses sont infinies, l'univers et la betise humaine. Mais en ce qui concerne l'univers, je n'en ai pas encore acquis la certitude absolue" - A. Einstein.
28 sept. 2003 à 18:39
Quand j'utilise Dir$ pour tester l'existence d'un fichier, j'ai un message d'erreur lorsque le fichier n'existe pas justement :
Dir$(Chemin) me génère ce message avec Chemin = chemin bidon vers un fichier ou lecteur inexistant.
Normalement, il devrait retourner un String vide "" non?
Kim
28 sept. 2003 à 18:38
Quand j'utilise Dir$ pour tester l'existence d'un fichier, j'ai un message d'erreur lorsque le fichier n'existe pas justement :
Dir$(Chemin) me génère ce message avec Chemin = chemin bidon vers un fichier ou lecteur inexistant.
Normalement, il devrait retourner un String vide "" non?
Kim
17 juin 2003 à 12:18
donc, oui, dir$ c plus rapide (meilleur?). y'a pas photo.
par contre ok avec matthieu, avec le recul c un code assez 'lourd'.
mais bon, je l'ai ecris en 04/2000 comme vous pouvez le constater par vous memes. y'a un p'tit bout de chemin qui s'est fait depuis ;)
bon code. theo.
16 juin 2003 à 11:02
Public Function ExistFile(strPath As String) As Boolean
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
ExistFile = fs.FileExists(strPath)
End Function
voilà... c + propre :)
31 août 2001 à 16:12