如何检测下载是否完成.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 5 行

Internet Transfer控 件 有 一 个 StillExecuting属 性 是 用 来 检 测 是 否 下 载 完 毕 的 。 如 果 下 载 未 完 成 ， 该 属 性 返 回 一 个 非 零 值 ， 而 下 载 完 成 ， 返 回 0。 vb6的 帮 助 说 ， 下 载 未 完 成 将 返 回 True(-1)， 其 实 这 是 不 对 的 (参 见 微 软 的 Knowledge Base的 文 章：“ FIX: StillExecuting Property Returns Incorrect Value” )。 VB 6修 复 了 这 个 Bug。 你 可 以 把 下 面 的 代 码 加 在 Inet1.Execute后 面 。 
    Do While Inet1.StillExecuting 
     DoEvents 
    Loop 
<END>