code pour tester si un fichier existe?

Bonjour,

J'ai fait ce code pour tester vérifier si un fichier existe. Est-il bon?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 Public Function Verification(Path As String) As Boolean
 
 On Error GoTo Erreur
 FileLen (Path)         'Mesure la taille du fichier
 Verification = True    'Retourne vrai si le fichier existe
 Exit Function
 
Erreur:
 Verification = False   'Retourne faux si le fichier n'exsite pas
 
 End Function

Bonjour,

Non, il ne l'est pas.

F1 sur la fonction Dir

Ok

mais désolé je n'ai pas encore msdn

ok

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'**************************************************************
'**********Vérificatio de la présence d'un  fichier************
'**************************************************************
 Public Function Verification(Path As String) As Boolean
 
Dim fs As Object
Dim blnFExiste As Boolean
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Path) Then
    blnFExiste = True
Else
    blnFExiste = False
End If
ExistFile = blnFExiste
 
End Function

ou tout simplement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Function Verification(Path As String) As Boolean Dim FExist As Boolean If Dir(Path) = "" Then FExist = False Else FExist = True End If Verification = FExist End Function
@ toutounesan :
Lorsque tu mets a la fin de ta function : ExistFile = blnFExiste, d'ou viens la variable ExistFile, en fait tu aurais du mettre Verification

Citation:

Envoyé par toutounesan

Ok

mais désolé je n'ai pas encore msdn

Y'a pas de raisons :
http://vb.developpez.com/outils/
c'est le premier de la liste.

Plus sioux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function Verification(Path As String) As Boolean
    Dim FExist As Boolean
    Dim sTemp as string
    On Error Resume Next
    sTemp=Dir(Path)
    On Error Goto 0
    If sTemp = "" Then
         FExist = False
    Else
         FExist = True
    End If
    Verification = FExist
 End Function

Cette variation du code de Sovo permet de ne pas buter si path est un chemin réseau avec une rupture de la communication par exemple, ou un un répertoire sans droits d'accès.

Citation:

Envoyé par Delbeke

Cette variation du code de Sovo permet de ne pas buter si path est un chemin réseau avec une rupture de la communication par exemple, ou un un répertoire sans droits d'accès.

Bien vu, j'y avais pas pense ;).