Vérifier si un fichier existe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 715 fois - Téléchargée 40 fois

Contenu du snippet

Ce code vérifit simplement si un fichier existe ou non.
Si il existe, la fonction revoit True
Si il n'existe pas, la fonction revoit False
Sa vous évitera d'utiliser FileSystemObject :)

Source / Exemple :


Public Function IfFileExists(ByVal Fichier As String) As Boolean
    Dim Resultat As String
    Resultat = Dir(Fichier, vbNormal)
    If Resultat <> "" Then
        IfFileExists = True
    Else
        IfFileExists = False
    End If
End Function

Conclusion :


Voila, c'est tout. Cette source est pour newbe, mais ça évite d'invoquer FileSystemObject, et c'est essentiellement pour sa que j'ai écrit ce code.

A voir également

Ajouter un commentaire Commentaires
Messages postés
778
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
27 novembre 2008

salut salut,

ce code vient de me servir !

J'ai installe vb6 hier apres midi et je dois realiser une application et je n'y pas grand chose !

merci pour le bout de code
christophe
Messages postés
16
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
24 mars 2009

fichier = App.Path & "\nomdufichier.ext"
verif = Dir(fichier, vbNormal)

Si le fichier n'existe pas, verif sera nul.
Messages postés
110
Date d'inscription
dimanche 11 août 2002
Statut
Membre
Dernière intervention
21 juillet 2006

If Dir$("CheminFichier.ext") <> vbNullString Then
'Existe
Else
'Existe pas
End if
Messages postés
224
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
22 décembre 2009

arf le string est po bon , les commentair accepte po le slach
Messages postés
224
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
22 décembre 2009

j'ai plus simple

fichier = dir("c:autoexec.bat")

if file <> "" then
msgbox("ok")
else
msgbox("po la")
end if

tu px mettre aussi Not

fichier = dir("c:autoexec.bat")
if not fichier <> "" then
msgobox("po la")
else
msgbox("la")
end if

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.