Test existance fichier

[Résolu]
Signaler
-
Messages postés
60
Date d'inscription
dimanche 8 mai 2005
Statut
Membre
Dernière intervention
20 mai 2007
-
Quelle est la commande pour savoir si un fichier existe ou non ???
Merci d'avance

violette@aramis.cea.fr

2 réponses

Voici la solution que j'utilise:

Private Function FileExist(File As String) As Boolean
Dim L As Long
On Error GoTo FExErr
L = FileLen(File)
FileExist = True
Exit Function
FExErr: FileExist = False
Exit Function
End Function

Tu n'as plus qu'à utiliser cette fonction de la façon suivante:

If FileExist("C:\Mon Fichier") then
MsgBox "Le fichier existe"
Else
MsgBox "Le fichier n'existe pas"
End If

Cependant, il est vrai que la fonction "DIR" est tout aussi efficace.

@+
Xaviou :o)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
60
Date d'inscription
dimanche 8 mai 2005
Statut
Membre
Dernière intervention
20 mai 2007

Merci pour ce bout de code qui va m'être bien utile