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 ，欢迎访问网页设计爱好者web开发。
