Ich möchte aus einer Excelliste die Namen übernehmen und neue Ordner mit diesem Namen
erstellen lassen, geht das mit einem Makro?
Dim NeuerOrdner As String
NeuerOrdner = "C:\Test_Ordner"
MkDir NeuerOrdner
Erstellt aber keine Unterordner!
Mit Unterordner muss dies so aussehen.
Dim NeuerOrdner As String
NeuerOrdner = "C:\Test_Ordner"
MkDir NeuerOrdner
MkDir NeuerOrdner & "\NeuerOrdner2"
Sind die Ordner schon vorhanden kommt es zu einem Fehler.
Gruß Tino
Sub test()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder ("C:\Test")
End Sub
Gruß, Daniel