vbs下载文件保存到当前目录

发布网友发布时间：2022-04-25 16:59

共2个回答

懂视网时间：2022-05-16 10:01

Sub download(url,target)
Const adTypeBinary = 1
Const adTypeText = 2
Const adSaveCreateOverWrite = 2
Dim http,ado
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.SetOption 2,13056
http.open "GET",url,False
http.send
Set ado = createobject("Adodb.Stream")
ado.Type = adTypeBinary
ado.Open
ado.Write http.responseBody
ado.SaveToFile target,adSaveCreateOverWrite
ado.Close
End Sub
Set WshShell=CreateObject("WScript.Shell")
WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%")
HostsFile = WinDir & "System32DriversetcHosts_google"
Const hosts="https://raw.githubusercontent.com/vokins/simpleu/master/hosts"
download hosts,HostsFile

经测试，由于网络问题，可能获取会超时，建议大家多运行几次。或加入脚本可执行时间。

更多X通过vbs获取远程host文件并保存到指定目录相关文章请关注PHP中文网！

热心网友时间：2022-05-16 07:09

其实知道cmd中有个xcopy的命令就是复制文件夹的，
我们只需要调用这个命令即可：

set ws=wscript.createobject("wscript.shell")
ws.run"cmd /c xcopy 需要复制的文件夹目的地 /e"

其中需要复制的文件夹、目的地，改为自己的；
如果我想把C:\Program Files\aaa复制到D:\aaa代码就是这样的：

set ws=wscript.createobject("wscript.shell")
ws.run"cmd /c xcopy C:\Program Files\aaa D:\aaa /e"