Hvordan lage en fil i VBScript

Hvordan lage en fil i VBScript


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 programmeringsverktøy er nødvendig for å kjøre eller skrive kode i VBScript. Dette språket kan brukes på klientsiden eller lagt til websider.

Bruksanvisning

1 Høyreklikk i Windows Utforsker, velg \ "nye \" fra pop-up menyen, og klikk deretter på \ "Tekstdokument \" 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 nedenfor, vil du se flere linjer med kode med en vanlig engelsk beskrivelse av hva de gjør. Når du putter alle disse linjer med kode sammen, ender du opp med et skript for å opprette en tekstfil.

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

Kopier følgende kode inn i tekstfilen:
Dim objFSO 'Som File
Sett objFSO = Create (\ "Scripting.FileSystemObject \")

4 Legg en streng variabel for katalogbanen der du vil plassere filen og sett den til ønsket plassering.

Kopier følgende kode inn i tekstfilen:
Dim strDirectory 'As String
strDirectory = \ "C: \ NewDirectory \"

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

Kopier følgende kode inn i tekstfilen:
Dim objDirectory 'As Object
Hvis objFSO.FolderExists (strDirectory) og deretter

Set objDirectory = objFSO.GetFolder(strDirectory)

Ellers

Set objDirectory = objFSO.CreateFolder(strDirectory)

Slutt om

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

Kopier følgende kode inn i tekstfilen:
Dim strFile 'As String
strFile = \ "NewFile.txt \"

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

Kopier følgende kode inn i tekstfilen:
Dim objTextFile 'As Object
Dim blnOverwrite 'Som boolsk
blnOverwrite = True
Sett objTextFile = objFSO.CreateTextFile (strDirectory & \ "\\" og 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 er automatisk en ny linje tegnet for deg, mens det 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 fil med kode og riktig slipper alle stedene.

Kopier følgende kode inn i tekstfilen:
objTextFile.Close
Sett objTextFile = Nothing
Sett objDirectory = Nothing
Sett objFSO = Nothing

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

Hint

  • Skrive filen vil opprette en ny tom fil hver gang. Hvis du vil opprette en fil, for eksempel en hendelseslogg, er det bedre å sette denne verdien til False og kontroller at du har et nytt navn hver gang.
  • Bruk FileExists kommandoen fra filsystemet objekt for å sørge for at filen har blitt opprettet.
  • Hvis du foretrekker å skriptet med Option Explicit slått på, og deretter fjerne kommentarene fra koden før hver \ "Som \" statement.
  • Hvis du ikke sjekke for å være sikker på at mappen katalogen der du vil opprette filen allerede finnes, kan du generere feil.