So verwenden Sie VBScript zum Speichern einer Datei

Wie andere Skriptsprachen enthält VBScript Funktionen zur Verarbeitung von Dateieingaben und -ausgaben. Als Microsoft-Skriptsprache hat VBScript Zugriff auf Windows-Objekte, die Internetverbindungen und das Speichern von Dateien verarbeiten. Wenn in Ihrem Unternehmen überwiegend Windows verwendet wird, kann sich die Kenntnis der Verwendung von VBScript zur Automatisierung grundlegender Funktionen zum Lesen und Schreiben von Dateien als hilfreich erweisen. Um das Speichern von Dateien aus dem Internet zu automatisieren, können Sie das Streaming-Objekt ADODB verwenden, um Daten in eine lokale Datei auf dem Computer zu leiten. Dadurch wird die Datei geschrieben und automatisch gespeichert.

1

Erstellen Sie Variablen für Ihre Upload- und Download-Speicherorte:

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

2

Laden Sie die Datei aus dem Internet herunter:

Set objXMLHTTP = CreateObject ("MSXML2.XMLHTTP")

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

3.

Erstellen Sie einen Datenstrom für das herunterzuladende Objekt und setzen Sie seine Leseposition auf den Beginn der heruntergeladenen Datei:

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

stream.Write objXMLHTTP.ResponseBody stream.Position = 0

4

Erstellen Sie ein Systemobjekt, um Informationen aus der Datei zu verarbeiten, aus dem Stream in die Datei zu lesen und den Datenstream zu schließen:

Set system_file = Createobject ("Scripting.FileSystemObject") Wenn system_file.Fileexists (download) vorhanden ist, dann objFSO.DeleteFile download Set system_file = Nothing

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