VBScript är en lätt programmeringsspråk utvecklat av Microsoft . Det är väldigt bra att veta hur man programmerar i VBScript , eftersom dess tolkar för språket är inbäddade i alla Microsofts operativsystem . Inga speciella 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 . Instruktioner
1
Högerklicka i Utforskaren , välj " Nytt " från popupmenyn och klicka sedan på " Text Dokument " i menyn för att skapa en textfil .
2
Öppna den nyskapade filen för redigering . Detta kommer att vara behållare för all VBScript koden 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 kodrader tillsammans , du sluta med ett skript för att skapa en textfil .
3
Skapa en variabel för filsystemet objektet och instansiera den ( ställ in den till en ny instans av objektet ) . I VBScript du skapar variabler från " dimensionering " dem med " Dim " kommandot . Komplexa variabler ( de som inte är strängar, heltal eller boolesk ) måste instansieras innan du kan använda dem
Kopiera följande kod till din textfil : . Dim objFSO " Som FileSystemObjectSet objFSO = CreateObject ( " Scripting . FileSystemObject " )
4
Lägg en sträng variabel för sökvägen där du vill placera filen och ställ in den på önskad plats .
Kopiera följande kod i din text file : Dim strDirectory ' som StringstrDirectory = " C : \\ NewDirectory "
5
Kontrollera att katalogen mappen finns . Om katalogen inte finns där , sedan skapa den med hjälp av objektet filsystemet
Kopiera följande kod till din textfil : . Dim objDirectory " Som Objectif objFSO.FolderExists ( strDirectory ) ThenSet objDirectory = objFSO.GetFolder ( strDirectory ) ElseSet objDirectory = objFSO.CreateFolder ( strDirectory ) End If
6
Gör en sträng variabel för filnamnet och ställa den till ett lämpligt värde .
Kopiera följande kod till din textfil : Dim strFile ' Som StringstrFile = " ny_fil.txt "
7
Skapa en variabel för textfilen och instansiera den . Den CreateTextFile metoden har en valfri parameter för att skriva över filen det redan existerar
Kopiera följande kod till din textfil : . Dim objTextFile " Som ObjectDim blnOverwrite ' Som BooleanblnOverwrite = TrueSet objTextFile = objFSO.CreateTextFile ( strDirectory & " \\ " & strFile , blnOverwrite )
8
skriva data till den nya filen med koden nedan . Det finns två metoder för att skriva till filer , " Skriv " och " WriteLine . " Den senare metoden inkluderar automatiskt en ny rad tecken för dig , medan de tidigare bara bifogar data till vad som redan finns
Kopiera följande kod till 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 återlämnar alla objekt .
kopiera in följande kod på din textfil : objTextFile.CloseSet objTextFile = NothingSet objDirectory = NothingSet objFSO = Nothing
10
Spara all kod som du skapade i föregående steg in textfilen i början och stäng sedan filen . Byt namn på 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 .
