用VBA代码下载网络上的文件

现在的位置: 首页 >> 数据库 >> Access >> 用VBA代码下载网络上的文件


	添加时间:2005-8-16 来源:网教中国作者:

用VBA代码下载网络上的文件

前几天与MVP老K一起讨论如何从网络中下载一个文件到本机,现将代码帖上来与大家分享.另外我看到张志前段时间需要这个代码,不知道现在仍需要.代码适用于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

上一篇:一句代码得到SQL SERVER时间的函数下一篇:时间格式在sql server中更新带来的麻烦

大部分文章摘自网上，如有侵犯您的权益请与我们联系，我们会第一时间进行处理，谢谢!

[ 打印文章 ] [ 关闭窗口 ]