Ordner mit Unterordner erstellen VBA
21.04.2018 11:44:38
Hopps
hab im Internet ein Makro gefunden, was mir wie gewünscht Ordner erstellt, welche in Spalte A stehen. In B1 wird der Dateipfad eingetragen, wo die Datein hin sollen.
Nun hätte ich gerne aber noch einen Unterordner in den erstellten Datein.
Kann man dies gleich in einem Rutsch machen. Also in C1 z.B. den Unterordner eintragen und alle zu erstellenden Ordner hätten dann auch gleich den Unterordner?
Das Makro:
Sub Ordner_erstellen()
Dim Zeilen As Long, Pfad As String, FullPfad As String
Zeilen = Range("A65536").End(xlUp).Row
Pfad = Range("B1")
For i = 1 To Zeilen
FullPfad = Pfad & Cells(i, 1)
MkDir FullPfad
Next i
End Sub
Hopps