Board logo

标题: [系统相关] 如何实现浏览器文件下载自动保存? [打印本页]

作者: 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 编辑
  1. function download(sFileURL, sLocation)
  2. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  3. objXMLHTTP.open "GET", sFileURL, false
  4. objXMLHTTP.send()
  5. do until objXMLHTTP.Status = 200 :  wscript.sleep(1000) :  loop
  6. If objXMLHTTP.Status = 200 Then
  7. Set objADOStream = CreateObject("ADODB.Stream")
  8. objADOStream.Open
  9. objADOStream.Type = 1
  10. objADOStream.Write objXMLHTTP.ResponseBody
  11. objADOStream.Position = 0   
  12.               Set objFSO = Createobject("Scripting.FileSystemObject")
  13. If objFSO.Fileexists(sLocation) Then objFSO.DeleteFile sLocation
  14. Set objFSO = Nothing
  15. objADOStream.SaveToFile sLocation
  16. objADOStream.Close
  17. Set objADOStream = Nothing
  18. End if
  19. Set objXMLHTTP = Nothing
  20. End function
复制代码
这个vbs范例是在网上找的,使用方法如下:
download "http://remote-location-of-file", "C:\name-of-file-and-extension"




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2