TESTER SI UN FICHIER EXISTE ( SIMPLE ET EFFICACE )

Signaler
Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003
-
Messages postés
1
Date d'inscription
jeudi 2 avril 2009
Statut
Membre
Dernière intervention
20 juin 2009
-
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/4084-tester-si-un-fichier-existe-simple-et-efficace

Messages postés
1
Date d'inscription
jeudi 2 avril 2009
Statut
Membre
Dernière intervention
20 juin 2009

Merci Bcp c'est Génial y a rien à dire que brabo et merci
en Ms-Dos y a une fonction qui s'appelle Exist (Not exist) malheureusement ça marche pas en Vb
teste si fichier existe dans le répértoire En cours
If (dir(app.path & "\NomDeFichier.Extension")= "" then
msgbox "Le fichier n'existe pas ,Pensez à le creer"
else
msgbox " Le fichier existe est en supression..."
end if
Slt
Messages postés
130
Date d'inscription
mardi 11 mars 2003
Statut
Membre
Dernière intervention
9 juillet 2009

salut, je sais que ca fait un petit moment que cette source existe mais :
- Dir est trés lent d'execution
- on ne peut utiliser ta méthode avec des chemins relatifs...

donc si on veut garder cette simplicité on peut utilisé :

Private Function FichierExiste(Chemin As String) As Boolean
On Error Resume Next
FileExists ((GetAttr(Chemin) And vbDirectory) 0)

End Function

voilà est bonne prog ...
Messages postés
3
Date d'inscription
jeudi 29 décembre 2005
Statut
Membre
Dernière intervention
7 juin 2006

Comment déclare-t-on le chemin du répertoire que l'on veut examiner ??
avant ton script par Path = "chemin" ??
Help Me !

Thx
Messages postés
60
Date d'inscription
dimanche 20 novembre 2005
Statut
Membre
Dernière intervention
12 septembre 2007

superbe
Afficher les 15 commentaires