If GetFileOpenName("选择文件",ls_path,ls_file,"DLL","所有文件(*.*),*.*") = 1 Then
ll_length = FileLength(ls_path)
li_fileno = FileOpen(ls_path,StreamMode!)
If ll_length > 32765 Then
If Mod(ll_length,32765) = 0 Then
li_loops = ll_length/32765
Else
li_loops = ll_length/32765 + 1
End If
Else
li_loops = 1
End If
For li_i = 1 To li_loops
ll_read = FileRead(li_fileno,b)
tot_b = tot_b + b
ll_position = ll_position + ll_read
FileSeek(li_fileno,ll_position,FromBeginning!)
Next
FileClose(li_fileno)
End If
Dw_1.Object.File_name[ll_row] = ls_file
Dw_1.AcceptText()
If Dw_1.Update() = 1 Then
Commit;
Else
RollBack;
Return
End If