Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

vérifier l'existence d'un répertoire!!

2 réponses
Avatar
Nicolas
bonjour,
comment vérifier l'existence d'un répertoire spécifique avant de le
créer si inexistant avec la fonction MkDir???
merci

2 réponses

Avatar
Hugues
"Nicolas" a écrit dans le message de
news:4aadd412$0$17746$
bonjour,
comment vérifier l'existence d'un répertoire spécifique avant de le
créer si inexistant avec la fonction MkDir???
merci



La fonction Dir permet de rechercher un fichier ou un répertoire

voici un exemple

Function RepExiste(chemin As String) As Boolean

On Error GoTo ErrRepExiste

If Dir(chemin, vbDirectory) <> "" Then
RepExiste = True
Else
RepExiste = False
End If

Exit Function
ErrRepExiste:
MsgBox (Err.Description)
End Function
Avatar
Nicolas
merci beaucoup pour l'info
bonne soirée


Hugues a écrit :
"Nicolas" a écrit dans le message de
news:4aadd412$0$17746$
bonjour,
comment vérifier l'existence d'un répertoire spécifique avant de le
créer si inexistant avec la fonction MkDir???
merci



La fonction Dir permet de rechercher un fichier ou un répertoire

voici un exemple

Function RepExiste(chemin As String) As Boolean

On Error GoTo ErrRepExiste

If Dir(chemin, vbDirectory) <> "" Then
RepExiste = True
Else
RepExiste = False
End If

Exit Function
ErrRepExiste:
MsgBox (Err.Description)
End Function