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