VÉRIFIER SI UN FICHIER EXISTE

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
cs_jimmy69 Messages postés 778 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 27 novembre 2008 - 7 sept. 2007 à 15:15
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/5502-verifier-si-un-fichier-existe

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
Rejoignez-nous