test existance fichier

Réponse acceptée !
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)


-------------------------------
Réponse au message :
-------------------------------

Je crois que tu dois utiliser la fonction DIR (ou DIR$) :

Function Dir([PathName], [Attributes As VbFileAttribute = vbNormal]) As String

Membre de VBA.FileSystem
Renvoie le nom d'un dossier ou fichier correspondant

D'après l'explorateur d'objets VB6.

-------------------------------
Réponse au message :
-------------------------------

Quelle est la commande pour savoir si un fichier existe ou non ???
Merci d'avance

violette@aramis.cea.fr
-------------------------------
-------------------------------