vbs下载文件

vbs下载文件

Dim Url,SavePath,Filename
Url="http://www.kumi.cn/photo/43/7e/63/437e636e413071e3.jpg"
SavePath = "C:\Users\Administrator\Desktop\"
Filename ="a.png"

download Url ,SavePath  & Filename 

Sub download(url,target)
    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Dim http,ado
    Set http = CreateObject("Msxml2.XMLHTTP")
    http.open "GET",url,False
    http.send
    Set ado = createobject("Adodb.Stream")
    ado.Type = 1
    ado.Open
    ado.Write http.responseBody
    ado.SaveToFile target,2
    ado.Close
End Sub

posted on 2015-01-13 13:50 futrueface 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/futrueface/p/4221104.html