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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen