Test existance fichier
Résolu
lolo
-
13 janv. 2000 à 11:20
CsM Skate Messages postés 60 Date d'inscription dimanche 8 mai 2005 Statut Membre Dernière intervention 20 mai 2007 - 22 juin 2005 à 23:51
CsM Skate Messages postés 60 Date d'inscription dimanche 8 mai 2005 Statut Membre Dernière intervention 20 mai 2007 - 22 juin 2005 à 23:51
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)
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)
CsM Skate
Messages postés
60
Date d'inscription
dimanche 8 mai 2005
Statut
Membre
Dernière intervention
20 mai 2007
22 juin 2005 à 23:51
22 juin 2005 à 23:51
Merci pour ce bout de code qui va m'être bien utile
