Bir dosyayı kaydetmek için VBScript nasıl kullanılır

Diğer betik dilleri gibi, VBScript de dosya girişi ve çıktısını işlemek için işlevler içerir. Microsoft bir komut dosyası dili olarak VBScript, Internet bağlantılarını ve dosya kaydetmeyi işleyen Windows nesnelerine erişebilir. İşletmeniz ağırlıklı olarak Windows kullanıyorsa, temel dosya okuma ve yazma işlevlerini otomatikleştirmek için VBScript'in nasıl kullanılacağını bilmek yararlı bir beceri olabilir. Dosyaların Internet'ten kaydedilmesini otomatikleştirmek için, verileri bilgisayardaki yerel bir dosyaya dönüştürmek için ADODB streaming nesnesini kullanabilirsiniz. Bu dosyayı yazacak ve otomatik olarak kaydedecektir.

1.

Yükleme ve indirme konumlarınız için değişkenler oluşturun:

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

2.

Dosyayı web'den indirin:

Set objXMLHTTP = CreateObject ("MSXML2.XMLHTTP")

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

3.

İndirilen nesne için bir veri akışı oluşturun ve okuma konumunu indirilen dosyanın başına ayarlayın:

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

stream.Write objXMLHTTP.ResponseBody stream.Position = 0

4.

Dosyadaki bilgileri işlemek, akıştan dosyaya okumak ve veri akışını kapatmak için bir Sistem nesnesi oluşturun:

Set system_file = Createobject ("Scripting.FileSystemObject") Eğer system_file.Fileexists (download) ise objFSO.DeleteFile indirme Set system_file = Nothing

stream.SaveToFile indir stream.Close Set stream = Nothing End ise sonlandır

Popüler Mesajlar