Tester l'existence d'un répertoire

[Michael DELIQUE]

Code : Tout sélectionner

Function IsValideDirectory(Byval wDirectory As String) As Integer
   
   On Error Goto ErreurIsValideDirectory
   If wDirectory = "" Then
      IsValideDirectory = False
      Exit Function
   End If
   
   If (Dir (wDirectory,16))="" Then
      IsValideDirectory = False
   Else
      IsValideDirectory =True
   End If
   
   Exit Function
ErreurIsValideDirectory:
   '   Msgbox "(IsValideDirectory) Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   IsValideDirectory = False
   Exit Function
End Function