Créer un répertoire

[Bruno]

Bonjour à tous,

Comment faire pour créer un répertoire dans C:\Euro\
et surtout ce dernier doit se renommer avec le nom que j'ai remplie dans le textBox1.

Merci d'avance et bon week end a tous.

 

[Arnaud]

salut,

CreateFolder "C:\Euro\" & textBox1.Value

 

[Bruno]

Arnaud,

Je te remercie de ton aide mets cela ne marche pas.
j'ai un message d'erreur : Sub ou Function non définie.

Si tu as un autre solution.

Bruno

 

[Arnaud]

arf effectivement si j'en oubli la moitié...

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder "C:\Euro\" & textBox1.Value

 

[Bruno]

Arnaud,

Super je te remercie et passe un bon week end

Bruno

 

[myDearFriend]

Bonjour tout le monde,


Sauf erreur de ma part, on peut aussi faire :

MkDir "C:\Euro\" & textBox1.Value


Cordialement.
Didier

 

[@+Thierry]

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