creation d'un chemin entier

[lagodille]

bonjour,

je sais créer un repertoire (mkdir) mais pas créer un chemin completdu style
D:\menu\entree\saladecomposée\noix

merci de m'aider🙂

 

[RENAUDER]

Re : creation d'un chemin entier

Bonjour,

Au prompt d:\>
tu tapes mkdir D:\menu\entree\saladecomposée\noix

 

[Pierrot93]

Re : creation d'un chemin entier

Bonsoir Lagodille, Eric

si tu veux créer tous les dossiers de l'arborescence, essaye comme suit :

Sub test()
Dim x As Variant, i As Byte, y As String
x = Split("D:\menu\entree\saladecomposée\noix", "\")
For i = LBound(x) To UBound(x)
    y = y & x(i) & "\"
    If i > 0 And Dir(y, vbDirectory) = "" Then MkDir (y)
Next i
End Sub

bonne soirée
@+

Edition : type de donnée de la variable y

 

[Cousinhub]

Re : creation d'un chemin entier

Bonsoir,

salut Eric et Pierrot

ma petite solution....😱 (un peu du bricolage, mais...)

MkDir "D:\menu"
MkDir "D:\menu\entree"
MkDir "D:\menu\entree\saladecomposee"
MkDir "D:\menu\entree\saladecomposee\noix"

 

[lagodille]

Re : creation d'un chemin entier

merci pierrot et merci bhbh pour vos infos toujours utiles par contre je n'ai pas compris la soluce de renauder ?

 

[RENAUDER]

Re : creation d'un chemin entier

Bonsoir Pierrot,

La journée se termine (où avais-je la tête, on est dans un forum Excel) et moi j'étais encore sous DOS.
Ceci dit parfait le code.

 

[lagodille]

Re : creation d'un chemin entier

bonsoir
comme l'a dit renauder, parfait le code et très efficace.
Par contre je suis en panne sur "ouverture fichier avant et pendant" je n'arrive pas à m'en sortir......
cordialement
bonne soirée