求救,急?????
ls_Str=trim(sle_filename.text)
ll_filelen = FileLength(ls_str)
li_file = FileOpen(ls_str,StreamMode!, Read!, LockRead!)
if li_file<1 then
MessageBox("系统提示","请重新打开文件!")
fileclose(li_file)
Return
end if
If ll_filelen > 32765 Then
If Mod(ll_filelen, 32765) = 0 Then
loops = ll_filelen / 32765
Else
loops = (ll_filelen / 32765) + 1
End If
Else
loops = 1
End If
For i = 0 to loops+1
FileRead(li_file,b_i)
b = + b_i
Next