Jak używać VBScript do zapisywania pliku

Podobnie jak inne języki skryptowe, VBScript zawiera funkcje do obsługi wprowadzania i wyprowadzania plików. Jako język skryptowy Microsoft, VBScript ma dostęp do obiektów Windows, które obsługują połączenia internetowe i zapisują pliki. Jeśli twoja firma korzysta głównie z systemu Windows, znajomość obsługi VBScript w celu zautomatyzowania podstawowych funkcji odczytu i zapisu plików może okazać się przydatna. Aby zautomatyzować zapisywanie plików z Internetu, można użyć obiektu strumieniowego ADODB do przesyłania danych do lokalnego pliku na komputerze. Spowoduje to zapisanie pliku i automatyczne zapisanie go.

1.

Utwórz zmienne dla lokalizacji przesyłania i pobierania:

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

2.

Pobierz plik z Internetu:

Ustaw objXMLHTTP = CreateObject ("MSXML2.XMLHTTP")

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

3.

Utwórz strumień danych dla obiektu do pobierania i ustaw jego pozycję odczytu na początek pobranego pliku:

Ustaw strumień = CreateObject ("ADODB.Stream") stream.Open stream.Type = 1 'adTypeBinary

stream.Write objXMLHTTP.ResponseBody stream.Position = 0

4.

Utwórz obiekt System do obsługi informacji z pliku, odczytywania ze strumienia do pliku i zamykania strumienia danych:

Ustaw system_file = Createobject ("Scripting.FileSystemObject") Jeśli plik_systemowy.Fileexists (pobierz) Następnie objFSO.DeleteFile pobierz Set system_file = Nic

stream.SaveToFile strumień pobierania. Zamknij Ustaw strumień = Nic Koniec jeśli