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

前几天与MVP老K一起讨论如何从网络中下载一个文件到本机,现将代码帖上来与大家分享.另外我看到张志前段时间需要这个代码,不知道现在仍需要.代码适用于VBA，VB，VBS。 rDwEM,7  
rP9^}.Q  
Dim H, S UkAB}r#$  
Set H = CreateObject("Microsoft.XMLHTTP") ' V#Ie)m  
H.Open "GET", "http://www.yt-e.com/a.exe", False?? '网络中的文件URL 2M0d2{ ~b  
H.send ^0 `<  
Set S = CreateObject("ADODB.Stream") F uf6rR  
S.Type = 1 3(V6((,  
S.Open pS01fFoj  
S.write H.Responsebody ~ N-CT6 *5  
S.savetofile "c:\a.exe", 2? '本地保存文件名 ^Fc}' P  
S.Close 8tu| ~rg  
a1kG-p