![Laser cleaning a rusty Range Rover chassis - Edd China’s Workshop Diaries 42](https://i.ytimg.com/vi/v5rWy-u994k/hqdefault.jpg)
Sisu
Koodi kirjutamisel VBScriptis võib programmeerija vajada kinnitust, et fail on olemas enne toimingu sooritamist või funktsiooni helistamist. Seda saab ühendada, kui pääsete ligi "Windows Script Host" koos VBScriptiga ja kasutada FileSystemObjecti. Parim viis seda programmeerimistehnikat õppida on järgida samm-sammult näidet. See on hea tava algaja VBScripti programmeerija jaoks.
Juhised
-
Avage Notepad. Klõpsake menüü "Start" ja tippige otsingukasti "Notepad". Valige otsingutulemustes Notepad.
-
Loo uus fail Notepadis. Sisestage failis mõned juhuslikud tähed ja salvestage need järgmiselt: "C: Temp.txt". Seda kasutatakse VBScript-koodi näitamiseks.
-
Looge Notepadis uus dokument ja salvestage see järgmiselt: "C: Temp FileCheck.vbs". Laienduse ".vbs" lisamine tekstifaili loob Windowsi käivitatava VBScript-faili.
-
Kopeerige ja seejärel asetage oma Notepadi dokumenti järgmine kood:
Valik Selgesõnaline
'Määra DIM fso
'Objekti komplekti seadistamine fso = CreateObject ("Skriptimine.Faili süsteemObjekt")
'Loo Wrap.FileException (' C: Temp.txt ')) Seejärel "Alert User WScript.Echo" ("Fail on olemas!") WScript.Quit () Faili ei leitud! ") End If
'Välju skript WScript.Quit ()
-
Salvestage loodud VBScript-fail ja sulgege programm.
-
Avage kaust, millel on VBScript-fail ja topeltklõpsake "FileCheck.vbs". Ilmub sõnumikast, mis kinnitab: "Fail on olemas!" Sõnumikasti sulgemiseks valige "OK".
-
Nimetage või kustutage punktis 1 loodud fail "C: Temp.txt", seejärel topeltklõpsake skripti "FileCheck.vbs" uuesti. Määratud fail ei ole enam olemas ja näete sõnumit " Faili ei eksisteeri! "Koodis asuv If-Then-Missing avaldus teeb kontrolli ja teavitab teid tulemustest. Sõnumikasti sulgemiseks valige" OK ".
Teade
- Kui töötate VBScript-failidega, avab nende topeltklõps VBScript-kood. .Vbs-laiendifaili muutmiseks paremklõpsake failil ja valige menüüst „Muuda“.