'VB Script Document for new folders creating by F R A N T I C E K
Option Explicit
dim folder 'jméno adresáre
dim upfolder 'jméno nadrazeneho 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("folders.txt")  
set ts = f.OpenAsTextStream(ForReading, TristateFalse)

Do While Not ts.AtEndOfStream
On Error Resume Next
folder = trim(ts.ReadLine())
if left(folder,1)="*" then
	folder=right(folder,len(folder)-1)
	fso.createfolder(upfolder & "\" & folder)
	If Err.number <> 0 then
	  wscript.echo "Adresár '"& folder & "' hlásí tuto chybu:  " & Err.Description
	  Err.clear
	end If
else
	fso.createfolder(folder)
	upfolder=folder
	If Err.number <> 0 then
	  wscript.echo "Adresár '"& folder & "' hlásí tuto chybu:  " & Err.Description
	  Err.clear
	end If
end If
On error goto 0
loop
wscript.echo "Hotovo, mohu jít na pivo :-)"
ts.close