Obsah
Pri písaní kódu vo VBScript môže programátor potrebovať pred vykonaním akcie alebo vyvolaním funkcie potvrdenie existencie súboru. To je možné spojiť prístupom k programu „Windows Script Host“ spolu s VBScript a využitím FileSystemObject. Najlepším spôsobom, ako sa naučiť túto techniku programovania, je postupovať podľa príkladov krok za krokom. Je dobrým zvykom pre programátora, ktorý je vo VBScript nový.
Krok 1
Otvorte Poznámkový blok. Kliknite na ponuku „Štart“ a do vyhľadávacieho poľa zadajte „Poznámkový blok“. Vo výsledkoch vyhľadávania vyberte Poznámkový blok.
Krok 2
Vytvorte nový súbor v programe Poznámkový blok. Napíšte do súboru niekoľko náhodných písmen a uložte ich ako: „C: Temp test.txt“. Bude použitý na demonštráciu kódu VBScript.
Krok 3
Vytvorte nový dokument v programe Poznámkový blok a uložte ho ako: „C: Temp FileCheck.vbs“. Zahrnutím prípony „.vbs“ do textového súboru sa vytvorí spustiteľný súbor VBScript systému Windows.
Krok 4
Skopírujte a vložte nasledujúci kód do dokumentu programu Poznámkový blok:
Možnosť Explicit
‘Nastaviť dimenziu DIM fso
‘Set Object Set fso = CreateObject (" Scripting.FileSystemObject ")
'Vytvoriť podmienku If (fso.FileExists ("C: Temp test.txt")) Potom' Výstraha používateľa WScript.Echo ("Súbor existuje!") WScript.Quit () Else 'Výstraha používateľa WScript.Echo (" Súbor neexistuje! ") Ukončiť Ak
‘Ukončite skript WScript.Quit ()
Krok 5
Uložte súbor VBScript, ktorý ste vytvorili, a ukončite program.
Krok 6
Otvorte priečinok, ktorý obsahuje súbor VBScript, a dvakrát kliknite na súbor „FileCheck.vbs“. Malo by sa zobraziť okno so správou s potvrdením: „Súbor existuje!“ Kliknutím na tlačidlo „OK“ zavrite okno so správou.
Krok 7
Premenujte alebo odstráňte súbor „C: Temp test.txt“ vytvorený v kroku 1, potom znova dvakrát kliknite na skript „FileCheck.vbs“. Zadaný súbor už neexistuje a zobrazí sa správa: „ Súbor neexistuje! "(Súbor neexistuje!). Príkaz If-Then-Else v kóde kontroluje a informuje vás o výsledkoch. Kliknutím na tlačidlo" OK "zavrite okno so správou.
