Hromadné vytvoření složek

navod V tomto návodu naleznete VB skript s nímž je možné jedním dvojklikem vytvořit libovolné množství složek s požadovaným názvem. Třeba se bude někomu hodit.

1. Otevřete poznámkový blok a v něm vypište názvy složek, které chcete vytvořit.

Co řádek, to jedna složka.

textak-slozky

2. Soubor uložte s názvem slozky.txt

3. Otevřete nový poznámkový blok a do něj zkopírujte tento VB skript:

 
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

4. Soubor libovolně pojmenujte, pouze příponu souboru změňte z *.TXT na *.VBS

soubory

5. Oba soubory umístěte na místo, kde chcete vytvořit složky.

6. Nyní stačí kliknout na soubor s VB skriptem a během vteřiny budou složky vytvořeny.