Discussion :

[toutounesan]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phifi]

Bonjour,

Non, il ne l'est pas.

F1 sur la fonction Dir

[toutounesan]

Ok

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

[toutounesan]

ok

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sovo]

ou tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazaraignée]

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.

[Delbeke]

Plus sioux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sovo]

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 .