creation d'un chemin entier

RENAUDER

Nous a quitté

Repose en paix

• 20 Octobre 2008

• #2

Re : creation d'un chemin entier

Bonjour,

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Octobre 2008

• #3

Re : creation d'un chemin entier

Bonsoir Lagodille, Eric

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

Code:

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

 

Dernière édition: 20 Octobre 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Octobre 2008

• #4

Re : creation d'un chemin entier

Bonsoir,

salut Eric et Pierrot

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

Code:

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

 

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 20 Octobre 2008

• #5

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 ?

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 20 Octobre 2008

• #6

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.

 

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 21 Octobre 2008

• #7

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

 

Vote positif 0 Vote négatif