Code erweitern bitte

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

super genial

in Zelle A holt er sich den Namen

in Zelle B bekommt er den Speicherort

in Zelle C kommt noch ein Unterordner hinzu

top

Ich hätte eine Frage, besteht die Möglichkeit das ich in den Unterordner eine Bestimmt Datei (Vorlage) reinkopieren lassen kann?