VBScript är en lätt programmeringsspråk utvecklat av Microsoft . Det är mycket värdefullt att känna hur man programmerar i VBScript , eftersom dess tolkar för de språk som är inbäddade i alla Microsoft operativsystem . Inga särskilda programmeringsverktyg krävs för att köra eller skriva kod i VBScript . Detta språk kan användas på klientsidan eller läggas till webbsidor
1
Högerklicka i Utforskaren , Välj " Nytt " från popupmenyn och klicka sedan på " Textdokument "i menyn för att skapa en textfil .
2 .
Öppna den nya filen för redigering . Detta kommer att behållaren för alla VBScript-kod du skriver . I varje steg nedan ser du flera rader kod med en vanlig engelsk beskrivning av vad de gör . När du sätter alla dessa rader kod tillsammans , slut dig med ett skript för att skapa en textfil .
3 .
Skapa en variabel för filsystemet objektet och exemplifiera det ( som den till en ny instans av objektet ) . I VBScript du skapa variabler med " dimensionering " dem med " Dim "kommandot . Komplexa variabler ( de som inte är strängar , heltal eller booleans ) måste instansieras innan du kan använda dem .
Kopiera följande kod i din textfil .
Dim objFSO " Som FileSystemObject
Set objFSO=CreateObject ("Scripting. FileSystemObject" )
4 <. br >
Lägg en sträng variabel för sökvägen där du vill lägga filen och ställ in den på önskad plats
Kopiera följande kod i din textfil :
Dim strDirectory " As String
strDirectory=" C : \ NewDirectory "
5 .
Kontrollera att katalogen mappen finns . Om katalogen inte finns , skapa sedan den med filsystemobjekt
Kopiera följande kod i din textfil .
Dim objDirectory " As Object
Om objFSO. FolderExists ( strDirectory ) Sen
Set objDirectory=objFSO. GetFolder ( strDirectory )
Else
Set objDirectory=objFSO. CreateFolder ( strDirectory )
End If
6 .
Gör en sträng variabel som filnamn och ställ in den till ett passande värde
Kopiera följande kod i din textfil .
Dim strFile " As String
strFile=" Newfile . txt "
7 .
Skapa en variabel för textfilen och instansiera den. CreateTextFile metod har en valfri parameter för överskrivning filen som redan finns.
Kopiera följande kod i din textfil :
Dim objTextFile " As Object Dim
blnOverwrite " As Boolean
blnOverwrite=Sant
Set objTextFile=objFSO. CreateTextFile ( strDirectory " \ " strFile , blnOverwrite )
8 .
Skriv data till den nya filen med koden nedan. Det finns två metoder för att skriva till filer , " Write " och " WriteLine . " Den senare metoden ingår automatiskt en ny rad tecken för dig , medan det tidigare bara läggs data till det redan befintliga
Kopiera följande kod i din textfil .
objTextFile. Write ( "Detta är " )
objTextFile. WriteLine ( " en ny textfil " )
" Detta resulterar i strängen "Detta är en ny textfil "
9 .
Stäng filen med koden och riktigt släppa alla objekt
Kopiera följande kod i din textfil .
objTextFile. Close
Set objTextFile=Nothing Set
objDirectory=Inget
Set objFSO=Inget
10 .
Spara all kod som du skapade i föregående steg i textfilen i början och stänger sedan filen . Döp om filen med " . VBS " istället för " . txt " genom att högerklicka på filen och välja " Byt namn " från popupmenyn . Dubbelklicka på filen för att köra koden .
Previous:nothing Next:Definitionen av Visual Basic 6.0