Sådan oprettes en fil i VBScript

Scripting kan være en nem måde at skabe en tekstfil . numre i mørkt billede af .shock fra Fotolia.com

VBScript er en letvægts programmeringssprog udviklet af Microsoft.Det er meget nyttigt at vide, hvordan man programmerer i VBScript, da dets tolke til 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 websider.

Instruktioner

  1. Højreklik i Windows Stifinder, skal du vælge \ "Ny \" fra pop-op-menuen, og klik derefter påden \ "Tekst Dokument \" menupunkt for at oprette en tekstfil.

  2. Åbn den nyoprettede fil til redigering.Dette vil være i beholderen 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 for

    ekomst af objektet).I VBScript du oprette variabler ved \ "dimensionering \" dem med kommandoen \ "Dim \".Komplekse variable (dem, der ikke strygere, heltal eller boolesk) skal instantieres, før du kan bruge dem.

    Kopier følgende kode ind i din tekstfil:
    Dim objFSO 'Som FileSystemObject
    Set objFSO = CreateObject (\ "Scripting.FileSystemObject \")

  4. Tilføj en streng variabel for den mappe sti, hvor du ønsker at sætte filenog sæt den til den ønskede placering.

    Kopier følgende kode ind i din tekstfil:
    Dim strDirectory 'As String
    strDirectory = \ "C: \ NewDirectory \"

  5. Sørg for, at mappen mappen eksisterer.Hvis mappen ikke er der, derefter oprette det ved hjælp af filsystemet objekt.

    Kopier følgende kode ind i din tekstfil:
    Dim objDirectory »Som Object
    Hvis objFSO.FolderExists (strDirectory) Derefter

    Set objDirectory = objFSO.GetFolder (strDirectory)

    Else

    Set objDirectory = objFSO.CreateFolder (strDirectory)

    EndHvis

  6. Lav en streng variabel for filnavnet og sæt den til en passende værdi.

    Kopier følgende kode ind i din tekstfil:
    Dim strFile 'As String
    strFile = \ "NewFile.txt \"

  7. Definer en variabel til tekstfilen og instantiere den.Den CreateTextFile metode har en valgfri parameter for at overskrive filen det den allerede findes.

    Kopier følgende kode ind i din tekstfil:
    Dim objTextFile »Som Object
    Dim blnOverwrite 'Som Boolean
    blnOverwrite = True
    Set objTextFile = objFSO.CreateTextFile (strDirectory & amp; \" \\ "& amp; 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 sidstnævnte metode omfatter automatisk en ny linje tegn for dig, mens den tidligere bare føjer data til, hvad der allerede er til stede.

    Kopier følgende kode ind i din tekstfil:
    objTextFile.Write (\ "Dette er \")
    objTextFile.WriteLine (\ "en ny tekstfil \")
    'Dette resulterer i strengen \ "Dette er en nytekstfil \ "

  9. Luk fil med koden og ordentligt løslade alle objekter.

    Kopier følgende kode ind i din tekstfil:
    objTextFile.Close
    Set objTextFile = Nothing
    Set objDirectory = Nothing
    Set objFSO = Nothing

  10. Gem hele koden du oprettede i de foregående trin i tekstfilen påbegyndelsen og luk derefter 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.

Tips & amp;Advarsler

  • Overskrivning filen vil oprette en ny tom fil hver gang.Hvis du vil oprette en fil, såsom en hændelseslog, er det bedre at sætte denne værdi til Falsk og kontrollere, at du har et nyt navn hver gang.
  • Brug FileExists kommandoen fra filsystemet objekt for at sikre, at din fil er blevet oprettet.
  • Hvis du foretrækker at script med Option Explicit tændt, derefter fjerne kommentarer fra koden før hver \ "Som \" erklæring.
  • Hvis du ikke tjekke for at sikre, at den mappe mappe, hvor du vil oprette filen allerede findes, kan du generere fejl.
230
0
3
Visual Basics Programming