Tester si un fichier existe ( simple et efficace )

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 785 fois - Téléchargée 43 fois

Contenu du snippet

j'ai vu pas mal de source qui proposait de tester si un fichier existe ou pas, certaines utilisent des api, d'autres regardent la taille du fichier,...

Pourquoi ce compliquer la vie avec une source niveau 3 alors qu'avec celle-ci, niveau 1 on fait la même chose??

Source / Exemple :


Public Function Fichier_Existe(Path As String) As Boolean
If Dir(Path ) = "" Then
    Fichier_Existe = False
Else
    Fichier_Existe = True
End If
End Function

Conclusion :


plus simple non??

@plus

A voir également

Ajouter un commentaire

Commentaires

twayzan
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
le5ejumeau
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 ...
cs_nereck
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
cs_cyriloo
Messages postés
60
Date d'inscription
dimanche 20 novembre 2005
Statut
Membre
Dernière intervention
12 septembre 2007

superbe
cs_buzzo
Messages postés
29
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
30 novembre 2006

Impec merci beaucoup

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.