本帖最后由 applba 于 2012-4-8 18:42 编辑
- function download(sFileURL, sLocation)
- Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
- objXMLHTTP.open "GET", sFileURL, false
- objXMLHTTP.send()
- do until objXMLHTTP.Status = 200 : wscript.sleep(1000) : loop
- If objXMLHTTP.Status = 200 Then
- Set objADOStream = CreateObject("ADODB.Stream")
- objADOStream.Open
- objADOStream.Type = 1
- objADOStream.Write objXMLHTTP.ResponseBody
- objADOStream.Position = 0
- Set objFSO = Createobject("Scripting.FileSystemObject")
- If objFSO.Fileexists(sLocation) Then objFSO.DeleteFile sLocation
- Set objFSO = Nothing
- objADOStream.SaveToFile sLocation
- objADOStream.Close
- Set objADOStream = Nothing
- End if
- Set objXMLHTTP = Nothing
- End function
-
复制代码 这个vbs范例是在网上找的,使用方法如下:
download "http://remote-location-of-file", "C:\name-of-file-and-extension" |