Quellcode Ergänzung für die Erstellung von Unterordnern

[Schulzi]

Hallo zusammen, 

Der Quellcode (siehe unten) ermöglicht es Ordner aus Excel heraus zu erstellen. Sobald im Visual Basic der Play-Button gedrückt wird, werden Ordner namentlich mit den ausgewählten Excelfeldern erstellt. Die Ordner erstellen sich im Speicherort der Excel-Liste.
Nun zu meiner Frage/Bitte: Ich benötige Hilfe den Code soweit zu ergänzen, sodass sich in den zuvor Erstellen-Ordner gleichzeitig weitere bestimmte Ordner (von mir festgelegte Ordner wie z.B. X, Y, und Z) erstellen lassen . 

Ich hoffe Ihr könnt mir helfen und bedanke mich schon mal vorab^^
 
Der Code lautet wie folgt:
 

Code:

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

[schauan]

Hallöchen,

Du kannst die Unterordner einfach an den übergeordneten hängen, wenn der schon erzeugt wurde - z.B.
mkdir G:\Test
mkdir G:\Test\X
mkdir G:\Test\X\Y
usw.

[snb]

Einszeiler:

Code:

Sub M_snb()
    CreateObject("shell.application").Namespace("G:").NewFolder "OF\AA1\BB2"
end sub

[Schulzi]

Vielen Dank für eure Beiträge!!!

Jedoch bin ich mit euren Lösungen noch nicht ganz am Ziel! Um einen Ornder zu erstellen, selektiere ich ein Kästchen in Excel und das Programm erstellt mir einen Ornder mit dem Namen, der im Kästchen steht. Soweit ist auch alles gut! Nun würde ich diese Programm gerne soweit ergänzen, sodass der Ordner erstellt wird wie eben beschrieben und gleichzeitig sich weitere Unterordner erstellen lassen.

Hättet Ihr eine Idee wie man das Programm sinnvoll ergänzen kann?



Vielen Dank im Voraus!

[snb]

Hast du die Vorschläge nicht gelesen ?  Augenfehler ?

[Schulzi]

Ich bin leider nicht so fitt in Visio Basic, das ich die Codes miteinander kombiniert bekommen 

Könnte mir jemand den code schreiben?

Wäre sehr nett

[snb]

Wie, wo, wann ? Visio ??

[Kuwer]

Hallo,

Nun würde ich diese Programm gerne soweit ergänzen, sodass der Ordner erstellt wird wie eben beschrieben und gleichzeitig sich weitere Unterordner erstellen lassen.

Hättet Ihr eine Idee wie man das Programm sinnvoll ergänzen kann?

die Frage ist doch eher, wie Du das bedientechnisch machen willst!

Gruß Uwe