Intro till VB Script: en Nybörjarguide: del 2: arbeta med filer (5 / 13 steg)
Steg 5: Skriva skriptet Del3: om sedan uttalanden som felkorrigering.
En om då uttalande säger i princip om något händer då göra detta annars göra det. Du kan skapa en sträng av saker som måste ske genom att kapsla if/then uttalanden. Om en och b och c hända sedan göra detta annars göra.
exempel:
Vi vill se till att vi vill skriva till filen är det
om det vill vi göra ingenting
om vi inte hittar det vill vi skapa den
eller
Vi vill kolla om mappen finns det och om inte skapar det
och kontrollera sedan om arkivet er där när vi hittar mappen
och om inte skapar det
den första är ett exempel på en om då uttalande andra är en kapslad om då.
Hur vi gör det:
Det finns fyra delar till en om sedan uttalande
if/then
annat
slut om
Det är i grunden om detta är sant då göra detta annars göra det då slut uttalande
en korrekt kodade om sedan uttalande skulle vara:
Om något = något då
gör vad du behöver göra
Annat
göra något annat
Slut om
Du kan använda något argument som det kommer att följa den då delen och ignorera den annan delen men om det är falskt det kommer hoppa över då och gå till annat
Sedan när vi avslutar om uttalande vi sätta "slut om", men om vi har kapslade om uttalanden vi måste avsluta varje if uttalande. Det kommer att sluta dem från barn till förälder så den första "slut om" slutar om uttryck inuti den överordnade, där andra slutar ursprungliga (överordnade) om uttalande.
Att göra en pop up vi bara skriva
Wscript.Echo ("vad vi vill säga i meddelandet")
för att lägga till variabler värdet i det lade vi det utanför eller mellan citationstecken använder ampersand (&) tecken som avgränsare så skriptet vet det är en variabel och inte en text.
Gillar det här:
Wscript.Echo ("Bla bla bla" & strDir & "bla bla bla" & strFilename & "bla bla bla.")
Produktionen skulle vara en pop up som säger
Bla bla bla C:\Catcher bla bla bla shutdown_catcher.txt bla bla bla.
Faktiska användning:
"om mappen C; \exist
Om objFiSyOb.FolderExists(strDir) sedan
"får mapp
Ange objSysFold = objFiSyOb.GetFolder(strDir)
"annars
Annat
"skapa mappen c; \catcher
Ange objSysFold = objFiSyOb.CreateFolder(strDir)
"och kontrollera om de filer och mappar finns
Om objFiSyOb.FileExists (strDir & strFile) sedan
"om det blir mappen c:\catcher
Ange objSysFold = objFiSyOb.GetFolder(strDir)
"annars
Annat
"skapa text dokument shutdown_catcher.txt
Ange objFile = objFiSyOb.CreateTextFile (strDir & strFile)
"då dyker upp ett meddelande att säga du skapat dem båda
Wscript.Echo ("Vi har skapat en mapp som heter" & strDir & "och en fil med namnet" & strFilename & "och placerade den i den" & strDir & strFile & "katalogen.")
"slutet kapslat if uttalande
Slut om
"slutet ursprungliga if uttalande
Slut om
"nu i första om uttalande vi redan kontrollerats för mappen och det så nu vi kontrollera om filen
Om objFiSyOb.FileExists (strDir & strFile) sedan
"om fann få mapp
Ange objSysFold = objFiSyOb.GetFolder(strDir)
"annars
Annat
"skapa text doc
Ange objFile = objFiSyOb.CreateTextFile (strDir & strFile)
' skapa en popup säger vi skapat textdokumentet
Wscript.Echo ("Vi har skapat en fil med namnet" & strFileName & "i den" & strDir & "filmapp.")
Slut om