1,451
社区成员
发帖
与我相关
我的任务
分享我是一只莱鸟,为什么如下代码不能实现文件下载
Dim bData() As Byte
bData() = Inet1.OpenURL("http://www.AAA.com/BBB.RAR", icByteArray)
完成后可以存入文件:
Open "d:\aAA.rar" For Binary Access Write As #1
Put #1, , bData()
Close #1
为什么下载下来的文件跟原文件大小不相等??
bData() = Inet1.OpenURL("http://www.AAA.com/BBB.RAR", icByteArray)
完成后可以存入文件:
Open "d:\aAA.rar" For Binary Access Write As #1
Put #1, , bData()
Close #1
为什么下载下来的文件跟原文件大小不相等??
...全文
请发表友善的回复…
发表回复
alen99 2003-05-25
- 打赏
- 举报
我不太理解.只是文件大小不一样吗???哪内容呢??
有时下载的文件,回比源文件大一些,只要内容一样,就可以了
有时下载的文件,回比源文件大一些,只要内容一样,就可以了
