参考までに書いたボタンスクリプトです
どこか大間違いをしているような気がしてしょうが有りません
御指摘いただければ幸いです
***********************************************************
string docname,named,work_kekka
blob b,tot_b,tot_bb
long bytes_read

//setnull(b)
//setnull(tot_b)

integer value,li_FileNum,flen,loops

li_FileNum = 0

SetPointer(HourGlass!)

value =  GetFileOpenName(\"SelectFile\", &
+ docname, named, \"DOC\", &
+ \"Text Files (*.TXT),*.TXT,\"&
+ \"Doc Files (*.DOC),*.DOC\")

work_kekka = \"[\"+named+\"]\"//読んだファイル名を捕獲

li_FileNum = FileOpen(docname,StreamMode!,Read!,LockRead!)

if li_FileNum > 0 then
loops = 1

DO
bytes_read =  FileRead(li_FileNum,b)///制限一杯まで読む

work_kekka = work_kekka +\"/\"+ string(bytes_read)//読んだファイル名+ループ毎にサイズを捕獲

if isnull(b) then
loops = 0
else

CHOOSE CASE bytes_read
CASE 0
loops = 0
CASE -1
loops = 0
CASE -100
loops = 0
CASE ELSE
tot_b = tot_b +b
END CHOOSE

end if

LOOP UNTIL loops = 0
messagebox(\"\",mid(string(tot_b),1,100))

string s_work

long R_start,L_start
R_start = 1
L_start = 86000

//////ここをloopにする

s_work = mid(string(tot_b),R_start,L_start)///どうもこの当りに限界が有るようだ

mle_1.TEXT = s_work
//////////////////////////ループ終わり

//この後でファイルクローズして、work_kekkaを確認してend ifしていますコピーし忘れました
//なにせMACからメール出しているのでソース一つ持ってくるのもめんどくさいです

*************************************************************

何とぞよろしくお願いいたします