用VBA代码下载网络上的文件- -数据库 -Access -实例技巧

操作系统程序设计图形图像媒体动画机械电子 WEB开发数据库办公软件路由技术网络原理网络架设网络管理认证培训

您的位置：计算机资讯网 >> 数据库 >> Access >> 实例技巧 -> 用VBA代码下载网络上的文件

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

2004-10-14 16:03:02

前几天与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

转自:不详作者:未知

【关闭】

加入收藏

推荐给好友

打印本文

内容为网上收集,并不代表本站同意或者赞同其观点,如果有任何版权,内容问题,请联系本站,我们将在第一时间处理.

查询

热点专题

服务