Savoir si un repertoire existe

Signaler
-
Messages postés
10
Date d'inscription
samedi 8 septembre 2007
Statut
Membre
Dernière intervention
27 avril 2015
-
j'ai besoin de savoir si un répertoire existe pour le créer ou non.

Pour créer le répertoire c'est mkdir "nomrep" mais pour savoir si il existe ???

6 réponses

Il y a une méthode disponible dans la section Fichier/Disque à la page 3 pour tester la présence d'un répertoire sur le disque, voici une copie de ce qui est disponible, je l'ai moi-même testé avec succès!

Sub VerIf()

Dim MyPath As String 'Définition des variables
Dim myName As String

MyPath = "c:\windows" ' On initialise la variable
If (myName Dir(MyPath, vbDirectory)) vbEmpty Then 'On teste
l'existence du répertoire...
MsgBox " Le répertoire " & Chr(34) _
& MyPath & Chr(34) & " existe bien !", _
vbInformation

Else

MsgBox " Le répertoire " & Chr(34) _
& MyPath & Chr(34) & " n'existe pas !", _
vbExclamation

End If
End Sub
Messages postés
86
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
10 juillet 2008

je vais tester ca (j'en ait besoin aussi)
mais quand j'ai tester avec dir
s'il existe des fichiers dedant ca ùarche mais sinon il revoit
une string vide comme si le repertoire n'existait pas !!!
Messages postés
10
Date d'inscription
samedi 8 septembre 2007
Statut
Membre
Dernière intervention
27 avril 2015

M = "C:\Gestion\Audit"
If Dir(M, vbNormal) = "" Then
MsgBox "Dossier n'existe pas"
End If
Messages postés
10
Date d'inscription
samedi 8 septembre 2007
Statut
Membre
Dernière intervention
27 avril 2015

M = "C:\Gestion\Audit"
If Dir(M, vbNormal) = "" Then
MsgBox "Dossier n'existe pas"
End If
Messages postés
10
Date d'inscription
samedi 8 septembre 2007
Statut
Membre
Dernière intervention
27 avril 2015

Désoler,
pour le retour à la ligne.
Messages postés
10
Date d'inscription
samedi 8 septembre 2007
Statut
Membre
Dernière intervention
27 avril 2015

M = "C:\Gestion\Audit"
If Dir(M, vbNormal) = "" Then
MsgBox "Dossier n'existe pas"
End If