savoir si un repertoire existe

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 ???

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


-------------------------------
Réponse au message :
-------------------------------

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 ???
-------------------------------

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 !!!

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

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

Désoler,
pour le retour à la ligne.

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