vbs怎么下载文件？

Dim obj1,obj2

Dim url

start = timer

url = "www.ddd.com/dd.pdf" '这毕团里写你要下载文件的全路手槐橘径

Set obj1 = CreateObject("msxml2.xmlhttp")

Set obj2 = CreateObject("adodb.stream")

obj1.open "get",url,False

obj1.send

temp = obj1.responseBody

obj2.Type = 1

obj2.Mode = 3

obj2.Open()

obj2.Write(temp)

obj2.SaveToFile "d:\dd.pdf",2 '这里写保存的路径和名字，后明纯缀名要跟你文件后缀名一样哦。2的意思是已有则覆盖之

obj2.Close

endd = Timer

take = (endd-start) / 60

WScript.Echo "下载成功！" &vbCrLf &"共花费 " &take &" 秒！"

Set obj1 = Nothing

采纳吧！

其实纤碧返知道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"

VBS脚本可以修改下载路径，具体步骤如下：1.编辑VBS脚本，调用“Regsiter”函数设置下载路径；2.使用FTP客户端将VBS脚本上传到远程服务器；3.连接远程服务器缓姿昌，将VBS脚本加载到服务器上；4.执行VBS脚本，修扰扒改下载路径册亏。

---