Tester l'existance d'un répertoire

[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