标题: [系统相关] 如何实现浏览器文件下载自动保存? [打印本页]
作者: wh1234567 时间: 2012-4-8 15:27 标题: 如何实现浏览器文件下载自动保存?
本帖最后由 wh1234567 于 2012-4-8 22:34 编辑
我们一般使用ie浏览器下载文件时,总会弹出打开和保存按钮的界面窗口,需要手动点击才能保存
哪位高手能够将下载的文件自动保存到指定目录,编写自动保存到文件夹的命令批处理或vbs即可,也就是无需手动点击即可全自动下载到指定目录
作者: find 时间: 2012-4-8 15:32
用curl或wget去下载吧
作者: zuo99901 时间: 2012-4-8 16:13
浏览器上有设置的啊。自己编辑路径就好了嘛
作者: gawk 时间: 2012-4-8 18:02
回复 3# zuo99901
楼主一般会这样说:我能自己找到就不上来提问了
作者: applba 时间: 2012-4-8 18:39
本帖最后由 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"
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |