Do txt souboru slozky.txt vlož názvy složek, které potřebujete vytvořit.
Adam
Eva
Petr
Libuše
Spustím následující script
Option Explicit
dim folder ‚jméno adresáre
Dim fso, f, ts
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 ‚ system default, unicode, ascii
Set fso = CreateObject(„Scripting.FileSystemObject“)
set f = fso.GetFile(„slozky.txt“)
set ts = f.OpenAsTextStream(ForReading, TristateFalse)
Do While Not ts.AtEndOfStream
On Error Resume Next
folder = ts.ReadLine()
fso.createfolder(folder)
If Err.number <> 0 then
wscript.echo „Adresář ‚“& folder & „‚ hlásí tuto chybu: “ & Err.Description
Err.clear
end If
On error goto 0
loop
wscript.echo „Hotovo :-)“
ts.close