Cách sử dụng VBScript để lưu tệp

Giống như các ngôn ngữ script khác, VBScript chứa các hàm để xử lý đầu vào và đầu ra của tệp. Là ngôn ngữ kịch bản của Microsoft, VBScript có quyền truy cập vào các đối tượng Windows xử lý các kết nối Internet và lưu tệp. Nếu doanh nghiệp của bạn sử dụng Windows chủ yếu, việc biết cách sử dụng VBScript để tự động hóa các chức năng đọc và ghi tệp cơ bản có thể chứng tỏ là một kỹ năng hữu ích. Để tự động lưu tệp từ Internet, bạn có thể sử dụng đối tượng truyền phát ADODB để chuyển dữ liệu vào tệp cục bộ trên máy tính. Điều này sẽ ghi tập tin và tự động lưu nó.

1.

Tạo các biến cho vị trí tải lên và tải xuống của bạn:

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

2.

Tải xuống tệp từ web:

Đặt objXMLHTTP = CreateObject ("MSXML2.XMLHTTP")

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

3.

Tạo luồng dữ liệu cho đối tượng tải xuống và đặt vị trí đọc của nó ở đầu tệp đã tải xuống:

Đặt luồng = CreateObject ("ADODB.Stream") stream.Open stream.Type = 1 'adTypeBinary

stream.Write objXMLHTTP.ResponseBody stream.Pocation = 0

4.

Tạo một đối tượng Hệ thống để xử lý thông tin từ tệp, đọc từ luồng vào tệp và đóng luồng dữ liệu:

Đặt system_file = Createobject ("Scripting.FileSystemObject") Nếu system_file.Fileexists (tải xuống) Sau đó objFSO.DeleteFile tải xuống Đặt system_file = nothing

stream.SaveToFile tải xuống stream. Đóng Set stream = nothing End if