本文介绍了一段用于VBA、VB及VBS的代码，该代码实现了从指定URL下载文件并保存到本地的功能。具体步骤包括创建XMLHTTP对象进行网络请求，获取远程文件内容，再使用ADODB.Stream对象将内容写入本地文件。
代码适用于VBA，VB，VBS。
Dim H, S
Set H = CreateObject("Microsoft.XMLHTTP")
H.Open "GET", " http://www.yt-e.com/a.exe", False?? '网络中的文件URL
H.send
Set S = CreateObject("ADODB.Stream")
S.Type = 1
S.Open
S.write H.Responsebody
S.savetofile "c:/a.exe", 2? '本地保存文件名
S.Close
Dim H, S
Set H = CreateObject("Microsoft.XMLHTTP")
H.Open "GET", " http://www.yt-e.com/a.exe", False?? '网络中的文件URL
H.send
Set S = CreateObject("ADODB.Stream")
S.Type = 1
S.Open
S.write H.Responsebody
S.savetofile "c:/a.exe", 2? '本地保存文件名
S.Close
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
