Vb 下載檔案不完整 ...

我有一小段程式 :

Form1.Inet1.Execute ul, "GET"

t1 = Timer
Do
DoEvents
If Form1.Inet1.StillExecuting = False Or Abs(Timer - t1) >= 20 Then Exit Do
Loop

Do
DoEvents

'*** Load Byte *************
If LCase(p_type) = "byte" Or LCase(p_type) = "b" Then

xbyte() = Form1.Inet1.GetChunk(4096, icByteArray)

If Len(CStr(xbyte())) = 0 Then
Exit Do
End If

Put #1, , x_byte

End If
Loop

Close #1


這是用來下載檔案的 .

但下載檔案有時可以完整下載, 有時就不行 .

但到公司下載, 不能完整的檔案又可以完整下載了.

我家的速度是 256 k 的, 公司當然是超快的 .

而會離開迴圈的條件就只有

If Len(CStr(xbyte())) = 0 Then
Exit Do
End If

這個條件而己.

不知這個判斷式是否正確, 或是可以怎樣修改,
才不會因為速度的關係導致下載不完全呢 ?

有網友知道的話, 可以講一下嗎 ? 謝謝各位 ...