Page 1 sur 1
Tester l'existence d'un répertoire
Publié:
17 Août 2005 à 20:14par 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