Ordner mit Unterordner erstellen VBA
18.07.2019 13:39:19
JimKnopf76
zurzeit möchte ich mit Hilfe des folgenden Codes, welche ich hier im Archiv gefunden habe, Ordner und Unterordner erzeugen. Allerdings wird lediglich mit dem Zelle B1 Werten ein Ordner erzeugt. Wie sieht eine Schleife, sodass die Werte in Pfad = Range("B1") hochgezählt werden?
Option Explicit
Private Declare
Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Sub Ordner_erstellen()
Dim Zeilen As Long, Pfad As String, FullPfad As String, i As Long
Zeilen = Range("A65536").End(xlUp).Row
Pfad = Range("B1")
For i = 1 To Zeilen
FullPfad = Pfad & Cells(i, 1) & "\" & Range("C1") & "\"
Call MakeSureDirectoryPathExists(FullPfad)
Next i
End
Sub