Bastleni.eu

 
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