Bonjour Didier, Bruno, Arnaud, le Forum
Tu as tout as fait raison Didier, cette méthode MkDir est disponible et ne necessite pas l'appel à un FileSystemObject.
Cependant dans les deux méthodes, on ne peut pas créer une cascade de répertoires mais qu'un seul nouveau répertoire dans un chemin déjà existant.
Mais on peut arriver le faire en manipulant les erreurs comme ceci :
Option Explicit
Const TheMainPath As String = "C:\Program Files\My Program\"
Const TheArchivePath As String = "C:\Program Files\My Program\My Archive\"
Sub TestMkDirMultiLevel1()
On Error GoTo NextStep
MkDir TheMainPath
NextStep:
TestMkDirMultiLevel2
End Sub
Sub TestMkDirMultiLevel2()
On Error GoTo Sortie
MkDir TheArchivePath
MsgBox "Le Chemin " & TheArchivePath & " créé avec succès !"
Exit Sub
Sortie:
If Err = 75 Then
MsgBox "Le Chemin " & TheArchivePath & " existe déjà"
Else
MsgBox "Une Erreur non gérée s'est Produite : " & Err.Number & " " & Err.Description
End If
End Sub
si on fait la même manip avec FSO il faut gérer l'erreur 76
Bonne fin d'aprèm
@+Thierry