Come utilizzare VBScript per salvare un file

Come altri linguaggi di scripting, VBScript contiene funzioni per gestire l’input e l’output di file. In quanto linguaggio di scripting Microsoft, VBScript ha accesso agli oggetti Windows che gestiscono le connessioni Internet e il salvataggio dei file. Se la tua azienda utilizza prevalentemente Windows, sapere come utilizzare VBScript per automatizzare le funzioni di lettura e scrittura di file di base può rivelarsi un’abilità utile. Per automatizzare il salvataggio dei file da Internet, è possibile utilizzare l’oggetto di streaming ADODB per incanalare i dati in un file locale sul computer. Questo scriverà il file e lo salverà automaticamente.

1

Crea variabili per le posizioni di caricamento e download:

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

2

Scarica il file dal web:

Imposta objXMLHTTP = CreateObject (“MSXML2.XMLHTTP”)

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

3

Crea un flusso di dati per l’oggetto in download e imposta la sua posizione di lettura all’inizio del file scaricato:

Imposta stream = CreateObject (“ADODB.Stream”) stream.Open stream.Type = 1 ‘adTypeBinary

stream.Write objXMLHTTP.ResponseBody stream.Position = 0

4

Crea un oggetto System per gestire le informazioni dal file, leggere dal flusso nel file e chiudere il flusso di dati:

Imposta system_file = Createobject (“Scripting.FileSystemObject”) Se system_file.Fileexists (download) Allora objFSO.DeleteFile scarica Imposta system_file = Nothing

stream.SaveToFile download stream.Close Set stream = Nothing End if