Sub test() Dim H, S Set H = CreateObject("Microsoft.XMLHTTP") H.Open "GET", http://www.163.com/test.exe, False '文件网址 H.send Set S = CreateObject("ADODB.Stream") S.Type = 1 '二进制...
1、Open 语句 打开方式有 Input:以读取方式打开。 Output:以写入方式打开。 Append:以追加方式,即添加内容到文件末尾打开。 Binary:以二进制方式打开。 Random:以随机方式打开,如果未指定方式,则以 Random 方式打开文件。 Open pathname For mode As [#]filenumber Open "c:\a.tx...