Discussion :

[aurelu]

Bonjour à tous,

Je souhaiterais créer un dossier comportant 2 sous dossiers en fonction d'une valeur que je rentre dans une textbox.

J'ai commencé à coder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub CreerRepertoire()
Dossier = TextBox1.Value
MkDir ("J:\chemin\" & Dossier)
MkDir ("J:\chemin\" & Dossier & "\A")
MkDir ("J:\chemin\" & Dossier & "\B")
End Sub

Merci d'avance pour votre aide

[Menhir]

Perso, avec MkDir, je préfère juste donner le nom du répertoire à créer et faire confiance à ChDir et ChDrive pour me placer au bon endroit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub CreerRepertoire()
ChDrive("J")
 
ChDir("\chemin")
MkDir (TextBox1.Value)
 
ChDir(TextBox1.Value)
MkDir ("A")
MkDir ("B")
End Sub

[aurelu]

Super impeccable ça fonctionne !

Merci beaucoup !