VBScript er et lett programmeringsspråk utviklet av Microsoft. Det er veldig nyttig å vite hvordan å programmere i VBScript, siden den tolker for språket er innebygd i alle operativsystemer fra Microsoft. Ingen spesielle programmering verktøy er nødvendig for å kjøre eller skrive koden i VBScript. Dette språket kan brukes på klientsiden eller lagt til websider. Instruksjoner
en

Høyreklikk i Windows Utforsker , velg "New " fra pop -up menyen, og klikk deretter på "Text Document " menyen for å opprette en tekstfil .

2

Åpne den nyopprettede filen for redigering . Dette vil være den beholder for all VBScript koden du skriver . I hvert trinn under , vil du se flere linjer med kode med en vanlig engelsk beskrivelse av hva de gjør. Når du putter alle disse linjene med kode sammen , ender du opp med et skript for å lage en tekstfil .
3

Lag en variabel for filsystemet objekt og instantiate det (sett den til en ny forekomst av objektet) . I VBScript du opprette variabler med " dimensjonering " dem med " Dim "-kommandoen . Komplekse variabler ( de som ikke er strenger, heltall eller boolske ) må startes før du kan bruke dem

Kopier følgende kode inn i tekstfilen : . Dim objFSO ' Som FileSystemObjectSet objFSO = CreateObject ( " Scripting . FileSystemObject ")
4

Legg en streng variabel for katalogen banen der du vil plassere filen og sette den til ønsket plassering .

Kopier følgende kode inn i teksten file : Dim strDirectory ' som StringstrDirectory = "C : \\ NewDirectory "
5

Kontroller at katalogen mappen eksisterer. Hvis katalogen ikke er der , og deretter opprette den ved hjelp av filsystemet objekt

Kopier følgende kode inn i tekstfilen : . Dim objDirectory ' Som OBJECTIF objFSO.FolderExists ( strDirectory ) ThenSet objDirectory = objFSO.GetFolder ( strDirectory ) ElseSet objDirectory = objFSO.CreateFolder ( strDirectory ) End If
6

Lag en streng variabel for filnavnet og sette den til en passende verdi .

Kopier følgende kode inn i tekstfil : Dim strFile ' Som StringstrFile = " NewFile.txt "
7

Lag en variabel for tekstfilen og instantiate det. Den CreateTextFile metoden har en valgfri parameter for å overskrive filen det det allerede finnes

Kopier følgende kode inn i tekstfilen : . Dim objTextFile ' Som ObjectDim blnOverwrite ' Som BooleanblnOverwrite = TrueSet objTextFile = objFSO.CreateTextFile ( strDirectory & "\\ " & strFile , blnOverwrite )
8

skrive data til den nyopprettede filen med koden under. Det finnes to metoder for å skrive til filer, "Write" og " WriteLine . " Den siste metoden inkluderer automatisk en ny linje karakter for deg, mens de tidligere bare føyer data til det som allerede er til stede

Kopier følgende kode inn i tekstfilen : . ObjTextFile.Write ("Dette er ") objTextFile . WriteLine ( " en ny tekstfil ") ' Dette resulterer i strengen " Dette er en ny tekstfil "
9

Lukk filen med kode og riktig løslate alle stedene.

Kopier følgende kode inn i tekstfilen : objTextFile.CloseSet objTextFile = NothingSet objDirectory = NothingSet objFSO = Ingenting
10

Lagre all koden du opprettet i de forrige trinnene i tekstfilen i begynnelsen og deretter lukke filen . Endre navn på filen med " . Vbs " istedenfor " . Txt " ved å høyreklikke på filen og velge " Gi nytt navn " fra pop -up menyen . Dobbeltklikk på filen for å kjøre koden .