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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Hugues
Le #20137581
"Nicolas" 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
Nicolas
Le #20145161
merci beaucoup pour l'info
bonne soirée


Hugues a écrit :
"Nicolas" 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




Publicité
Poster une réponse
Anonyme