«

»

Dub 19

Hromadné vytvoření složek – VBS script

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