hatte grade langeweile
OffTopic:
Const FOR_READING = 1
Dim FSO
Dim File
Dim Line
Set FSO = CreateObject("Scripting.FilesystemObject")
Set File = FSO.OpenTextFile("ordner.txt", FOR_READING, True)
Do While Not File.AtEndOfStream
Line = File.ReadLine()
FSO.CreateFolder(Line)
Loop
File.Close()
Set File = Nothing
Set FSO = Nothing
Einfach eine ordner.txt anlegen und die zu erstellende Ordner eintragen. Trennung erfolgt durch Zeilenumbruch
Einen Kommentar schreiben: