Page 1 sur 1
Tester l'existance d'un répertoire
Publié:
22 Juil 2005 à 14:08par Michael DELIQUE
- Code : Tout sélectionner
Function IsValideDirectory(Byval wDirectory As String) As Integer
'teste si un répertoire existe
'Déclaration Variable
Dim Resultat_STD As String
If Trim(wDirectory) = "" Then
IsValideDirectory = False
Exit Function
End If
On Error Resume Next
Resultat_STD = Dir (wDirectory)
If Err Then
IsValideDirectory = False
Else
IsValideDirectory =True
End If
Resultat_STD = ""
End Function