在线等急？？ 谢了！！！！

[Forever4158]

为什么fileopen总返回-1 呢
string ls_str,ls_str1,ls_Str2,ls_path
int li_i,i
long ll_k,ll_j,loops,ll_size
blob b_i,b
ls_path=Space(128)
GetCurrentDirectoryA(128,ls_path)
ls_str=Message.StringParm
SELECTBLOB filesize
INTO :b_i
FROM t_update
WHERE filename=:ls_Str;
ll_size=Len(b_i)
IF ll_size > 32765 THEN
IF Mod(ll_size, 32765) = 0 THEN
loops = ll_size/32765
ELSE
loops = (ll_size/32765) + 1
END IF
ELSE
loops=1
END IF

ls_Str1=ls_path+"\"+ls_str
FileDelete(ls_Str1)
// 有错误 还不是语法的
li_i = FileOpen(ls_Str1,STREAMMODE!,WRITE!,LOCKWRITE!)
if li_i<1 then
MessageBox("系统提示","写入"+ ls_Str1 +"文件错误!")
return
end if
for i=1 to loops
b=blobmid(b_i,32765 * (i - 1)+1,32765)
FileWrite(li_i, b)
next
FileCLose(li_i)

[jlwei888]

跟踪调试就知道了！
ls_str=Message.StringParm //这放在前面
ls_Str1 值 是多少？

[ljial]

文件是否打开了

[double22822]

晕！
ls_Str1=ls_path+"\"+ls_str
FileDelete(ls_Str1)
// 有错误 还不是语法的
li_i = FileOpen(ls_Str1,STREAMMODE!,WRITE!,LOCKWRITE!)

为什么 FileDelete(ls_Str1)
然后：FileOpen(ls_Str1,STREAMMODE!,WRITE!,LOCKWRITE!) ??

[guangli_zhang]

看一下FileDelete(ls_Str1) 是否返回 TRUE
如果失败，你看一下，文件是否打开？是否为只读文件

[guangli_zhang]

看一下FileDelete(ls_Str1) 返回值是否成功（true)
如果失败看一下文件是否打开，是否为只读！

[UltraBejing]

等待牛人来答.