Slik bruker du VBScript til å lagre en fil

I likhet med andre skriptspråk inneholder VBScript funksjoner for å håndtere filinngang og utgang. Som et Microsoft-skriptspråk har VBScript tilgang til Windows-objekter som håndterer Internett-tilkoblinger og filsparing. Hvis bedriften din bruker Windows hovedsakelig, kan det være en nyttig ferdighet å vite hvordan du bruker VBScript til å automatisere grunnleggende filer for lesing og skriving. For å automatisere lagring av filer fra Internett, kan du bruke ADODB-streamingobjekt til å trekke data til en lokal fil på datamaskinen. Dette vil skrive filen og lagre den automatisk.

1.

Opprett variabler for opplastings- og nedlastingsstedene dine:

Dim url = "//www.domain.com/file.zip" Dim download = "D:\file.zip" 

2.

Last ned filen fra nettet:

Angi objXMLHTTP = CreateObject ("MSXML2.XMLHTTP")

 objXMLHTTP.open "GET", url, false objXMLHTTP.send() 

3.

Opprett en datastrøm for nedlastingsobjektet og sett dets leseposisjon til starten på den nedlastede filen:

Angi stream = CreateObject ("ADODB.Stream") stream.Open stream.Type = 1 'adTypeBinary

stream.Write objXMLHTTP.ResponseBody stream.Position = 0

4.

Opprett et systemobjekt for å håndtere informasjon fra filen, les fra strømmen til filen og lukk datastrømmen:

Sett system_file = Createobject ("Scripting.FileSystemObject") Hvis system_file.Fileexists (download) Deretter objFSO.DeleteFile laste ned Set system_file = Ingenting

stream.SaveToFile laste ned stream.Close Set stream = Ingenting slutt hvis