Dim len, rest As Int
len = FileDump.Length/20
For i= 0 To FileDump.Length - 1 Step len
rest = FileDump.Length - i
If rest >= len Then
If AStream.Write2(FileDump, i, len) = False Then
'pause for transferring buffer
DoEvents:DoEvents
i = i - len
Else
Log(i)
End If
Else
AStream.Write2(FileDump, i, rest)
End If
Next