hvordan du opretter en fil i VBScript

Indlæg af Birthe Møller     opdateret: 2012-02-11

VBScript er en letvægts programmeringssprog udviklet af Microsoft . Det er meget nyttigt at vide, hvordan man programmerer i VBScript , da dens tolke for sproget 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 på klientsiden eller tilføjes til websider

Du skal bruge: . .
tekst editor


1
Højreklik i Windows Stifinder , vælg " Ny " fra pop-up-menuen og derefter klikke på " Tekstdokument " menupunkt for at oprette en tekstfil .
2 .
Åbn det nyligt oprettede fil til redigering . Dette vil være container til alle de 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 med et script til at oprette en tekstfil .
3 .
Opret en variabel til filsystemet objektet og instantiere den ( sæt det til en ny instans af objektet ) . I VBScript du oprette variabler ved " dimensionering " dem med " Dim " kommando . Komplekse variable ( dem, der ikke strenge , heltal eller boolske ) skal være instantieres , før du kan bruge dem .
Kopier følgende kode ind på din tekst fil : .
Dim objFSO » Som FileSystemObject
Set objFSO=CreateObject ( " Scripting. FileSystemObject " )
4 <. br >
Tilføj en streng variabel for den mappe sti, hvor du ønsker at sætte fil og sæt den til den ønskede placering
Kopier følgende kode ind i din tekst -fil :
Dim strDirectory » As String
strDirectory=" C : \ NewDirectory "
5 .
Sørg for, at mappe for eksisterer . Hvis mappen ikke er der , derefter oprette den ved hjælp af filsystemet objektet
Kopier følgende kode ind i din tekst -fil : .
Dim objDirectory » Som Objekt
Hvis objFSO. FolderExists ( strDirectory ) Så
Set objDirectory=objFSO. GetFolder ( strDirectory )
Else
Set 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 ind i din tekst -fil : .
Dim strFile » As String
strFile=" NewFile . txt "
7 .
Opret en variabel til tekstfilen og instantiere den. CreateTextFile Metoden har en valgfri parameter for overskrivning filen det den allerede findes .

Kopier følgende kode ind på din tekst fil :
Dim objTextFile » Som Objekt
Dim blnOverwrite » Som Boolean
blnOverwrite=True
Set objTextFile=objFSO. CreateTextFile ( strDirectory " \ " strFile , blnOverwrite )
8 .
Skriv data til den nyoprettede fil med koden nedenfor . Der er to metoder til at skrive til filer , " Skriv "og " WriteLine . " Den sidste metode omfatter automatisk en ny linje tegn for dig , mens den tidligere kun føjer data til, hvad der allerede er til stede
Kopier følgende kode ind i din tekst -fil : .
objTextFile. Write ( " Dette er " )
objTextFile. WriteLine ( " en ny tekst fil " )
' Dette resulterer i strengen "Dette er en ny tekst fil "
9 .

Luk fil med koden og korrekt løslade alle objekter
Kopier følgende kode ind i din tekst -fil : .
objTextFile. Close
Set objTextFile=Nothing
Set objDirectory=Nothing
Set objFSO=Nothing
10 .
Gem alle den kode, du oprettede i forrige 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-op-menuen . Dobbeltklik på filen for at udføre koden .

gode råd og advarsler


  • Overskrivning filen vil skabe en ny tom fil hver gang. Hvis du vil oprette en fil , som en begivenhed log , det er bedre at indstille denne værdi til Falsk og kontroller, at du har et nyt navn hver gang .
  • Brug FileExists kommandoen fra filsystemet objektet for at sikre , at din fil er blevet oprettet.
  • Hvis du foretrækker at script med Option Explicit er slået til, derefter fjerne kommentarer fra koden , før hver " As " erklæring .
  • Hvis du ikke skal du kontrollere , at den mappe mappe, hvor du vil oprette filen allerede findes , kan du generere fejl .


  • Previous:hvordan man kan læse en kommasepareret fil i Visual Basic Next:hvordan man åbner en postsættet



     

    Kommentarer

    Code:
    change