[系统相关] 如何实现浏览器文件下载自动保存？

wh1234567

我们一般使用ie浏览器下载文件时，总会弹出打开和保存按钮的界面窗口，需要手动点击才能保存
哪位高手能够将下载的文件自动保存到指定目录，编写自动保存到文件夹的命令批处理或vbs即可，也就是无需手动点击即可全自动下载到指定目录

find

用curl或wget去下载吧

zuo99901

浏览器上有设置的啊。自己编辑路径就好了嘛

gawk

回复 3# zuo99901


    楼主一般会这样说：我能自己找到就不上来提问了

applba

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"