文本编辑表单问题
在未连编状态下运行正常,连编后运行提示“windwos fhandle <0”
我用的是顶层表单做菜单,如果是隐藏了VFP窗口的原故,请教各位老师用什么办法能正常运行该文本编缉表单?谢谢了!
try:
*---判断并创建文本文件---*
If Adir(laMyArray,'记事本.txt')>0
ELSE
strtofile("","记事本.txt")
EndIf
*---写文件---*
qq="d:\qy\记事本.txt"
If File(qq)
Fhandle=Fopen(qq,12)
If Fhandle>0
=Fseek(Fhandle,0,2)
=Fwrite(Fhandle,Chr(13)+Chr(10)+thisform.text1.value)
=Fclose(Fhandle)
Else
Messagebox("windwos fhandle <0",48)
Endif
ENDIF
------解决方案--------------------------------------------------------