Vérifier si un fichier existe

0/5 (5 avis)

Snippet vu 11 907 fois - Téléchargée 42 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
cs_jimmy69
Messages postés
778
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
27 novembre 2008
1
7 sept. 2007 à 15:15
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
cs_trotter
Messages postés
16
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
24 mars 2009

28 déc. 2004 à 18:21
fichier = App.Path & "\nomdufichier.ext"
verif = Dir(fichier, vbNormal)

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

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

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

30 déc. 2002 à 18:31
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.