Cara Menggunakan VBScript untuk Menyimpan File

Seperti bahasa scripting lainnya, VBScript berisi fungsi untuk menangani input dan output file. Sebagai bahasa scripting Microsoft, VBScript memiliki akses ke objek Windows yang menangani koneksi Internet dan penyimpanan file. Jika bisnis Anda menggunakan Windows secara dominan, mengetahui cara menggunakan VBScript untuk mengotomatiskan fungsi membaca dan menulis file dasar dapat terbukti menjadi keterampilan yang bermanfaat. Untuk mengotomatiskan penyimpanan file dari Internet, Anda dapat menggunakan objek streaming ADODB untuk menyalurkan data ke file lokal di komputer. Ini akan menulis file dan secara otomatis menyimpannya.

1.

Buat variabel untuk lokasi unggahan dan unduhan Anda:

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

2.

Unduh file dari web:

Setel objXMLHTTP = CreateObject ("MSXML2.XMLHTTP")

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

3.

Buat aliran data untuk objek unduhan dan atur posisi bacaannya ke awal file yang diunduh:

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

stream.Write objXMLHTTP.ResponseBody stream.Position = 0

4.

Buat objek Sistem untuk menangani informasi dari file, baca dari aliran ke dalam file dan tutup aliran data:

Set system_file = Createobject ("Scripting.FileSystemObject") Jika system_file.Fileexists (unduh) Kemudian unduhan objFSO.DeleteFile unduh Set system_file = Tidak Ada

stream.SaveToFile aliran pengunduhan.Tutup Set stream = Tidak Ada Akhiri jika