VBScript er en letvægts programmeringssprog udviklet af Microsoft. Det er meget nyttigt at vide, hvordan man programmerer i VBScript, eftersom dens tolke til det sprog, der er indlejret i alle Microsoft- operativsystemer. Ingen specielle programmeringsværktøjer er forpligtet til at køre eller skrive kode i VBScript. Dette sprog kan bruges klientsiden eller tilføjes til websider. Instruktioner
1
Højreklik i Windows Stifinder, vælg "Ny " fra pop -up-menuen og derefter klikke på " Tekstdokument " menupunkt for at oprette en tekstfil .
< Br > 2.
Åbn den nyoprettede fil til redigering. Dette vil være containeren for hele VBScript kode, du skriver . I hvert trin nedenfor, vil du se flere linjer kode med en almindelig engelsk beskrivelse af, hvad de gør. Når du lægger alle disse linjer kode sammen, du ender op med et script til at oprette en tekstfil .
3
Opret en variabel til filsystemet objektet og instantiere den (sæt den til en ny instans af objektet) . I VBScript du oprette variabler ved " dimensionering " dem med " Dim " kommando . Komplekse variable ( dem, der ikke strygere, heltal eller boolesk type ) skal instantieres , før du kan bruge dem
Kopier følgende kode i dit tekstfil: . Dim objFSO »Da FileSystemObjectSet objFSO = CreateObject ( " Scripting . FileSystemObject " )
4
Tilføj en streng variabel for den mappe sti, hvor du vil sætte filen og sæt den til den ønskede placering.
Kopier følgende kode i din tekst fil: Dim strDirectory »Så StringstrDirectory =" C: \\ NewDirectory "
5
Sørg for, at biblioteket mappen eksisterer. Hvis mappen ikke er der, så skaber det ved hjælp af filsystemet objekt
Kopier følgende kode i dit tekstfil: . Dim objDirectory »Da Objectif objFSO.FolderExists ( strDirectory ) ThenSet objDirectory = objFSO.GetFolder ( strDirectory ) ElseSet objDirectory = objFSO.CreateFolder ( strDirectory ) End If
6
Lav en streng variabel for filnavnet og sæt den til en passende værdi .
Kopier følgende kode i dit tekstfil: Dim strFile ' Som StringstrFile = " ny_fil.txt "
7
Definer en variabel til tekstfilen, og instantiere den. Den CreateTextFile metode har en valgfri parameter for at overskrive den fil, det er det allerede findes
Kopier følgende kode i dit tekstfil: . Dim objTextFile »Da ObjectDim blnOverwrite ' Som BooleanblnOverwrite = TrueSet objTextFile = objFSO.CreateTextFile ( strDirectory & "\\ " & strFile , blnOverwrite )
8
skrive data til den nyoprettede fil med koden nedenfor. Der er to metoder til at skrive til filer , "Write " og " WriteLine ". Sidstnævnte metode omfatter automatisk en ny linje for dig, mens den tidligere blot føjer data til , hvad der allerede er til stede
Kopier følgende kode i dit tekstfil: . ObjTextFile.Write ( "Dette er" ) objTextFile . WriteLine ( " en ny tekstfil «) « Dette resulterer i strengen" Dette er en ny tekstfil "
9
Luk filen med kode og ordentligt frigive alle objekter.
Kopier følgende kode ind i din tekstfil: objTextFile.CloseSet objTextFile = NothingSet objDirectory = NothingSet objFSO = Nothing
10
Gem hele koden du oprettede i de foregående trin i den tekstfil i begyndelsen og derefter lukke filen. Omdøb filen med . " Vbs " i stedet for " . Txt " ved at højreklikke på filen og vælge " Omdøb " fra pop - up -menuen. Dobbeltklik på filen for at udføre koden .