您所在位置：主题：救命啊！真是没办法了！
hw2007name
[专家分：4790] 发布于 2008-09-18 10:18:00
我的一个自定义函数如下，不知道那里出现了漏洞，以前用着好好的，今天不管怎么测试都有问题：
我的主程序比如在:"D:\ML\安装程序制作工具.EXE"
FUNCTION FileUsed&&判断文件是否在使用,并返回逻辑型数据
PARAMETERS cPrFileName&&比如传递来一个文件全名："F:\程序\统计表.ICO"
PRIVATE nUseOpenError,nOpenFile,cNowOnError
nUseOpenError=1
nOpenFile=-1
IF TYPE("cPrFileName")#"C"
RETURN .F.
ENDIF
IF !FILE(cPrFileName,1)
RETURN .F.
ENDIF
cNowOnError=ON("ERROR")
ON ERROR nUseOpenError=0
MESSAGEBOX(cPrFileName,64,"Open")&&在这里文件都是"F:\程序\统计表.ICO"
nOpenFile=FOPEN("&cPrFileName.",2)&&在这里偶尔出现打不开文件,实际上我根本没有使用此文件
ON ERROR &cNowOnError.
IF nOpenFile<=-1
MESSAGEBOX(cPrFileName,64,"error")&&偶尔打不开时,文件名一样的是"F:\程序\统计表.ICO"
[color=FF0000]COPY FILE (cPrFileName) TO "f:\m"+SYS(2015)+"."+JUSTEXT(cPrFileName)[/color]
&©时,在里文件名变了,cPrFileName不是"F:\程序\统计表.ICO",而成了"D:\ML\统计表.ICO".
RETURN .T.
ELSE
=FCLOSE(nOpenFile)
RETURN .F.
ENDIF
各位高手些帮帮忙啊,我实在没办法,找出程序漏洞在那里,主要原因是文件名不知道为什么会变,还有就是FOPEN文件是不是有什么要求,我查看VFP帮助中没提到什么,但我的这个函数,以前我的多个程序都使用得正,不知道怎么现在出现问题,上面的MESSAGEBOX,COPY FILE命令行我是为了测试出错原因而加的.
我的主程序比如在:"D:\ML\安装程序制作工具.EXE"
FUNCTION FileUsed&&判断文件是否在使用,并返回逻辑型数据
PARAMETERS cPrFileName&&比如传递来一个文件全名："F:\程序\统计表.ICO"
PRIVATE nUseOpenError,nOpenFile,cNowOnError
nUseOpenError=1
nOpenFile=-1
IF TYPE("cPrFileName")#"C"
RETURN .F.
ENDIF
IF !FILE(cPrFileName,1)
RETURN .F.
ENDIF
cNowOnError=ON("ERROR")
ON ERROR nUseOpenError=0
MESSAGEBOX(cPrFileName,64,"Open")&&在这里文件都是"F:\程序\统计表.ICO"
nOpenFile=FOPEN("&cPrFileName.",2)&&在这里偶尔出现打不开文件,实际上我根本没有使用此文件
ON ERROR &cNowOnError.
IF nOpenFile<=-1
MESSAGEBOX(cPrFileName,64,"error")&&偶尔打不开时,文件名一样的是"F:\程序\统计表.ICO"
[color=FF0000]COPY FILE (cPrFileName) TO "f:\m"+SYS(2015)+"."+JUSTEXT(cPrFileName)[/color]
&©时,在里文件名变了,cPrFileName不是"F:\程序\统计表.ICO",而成了"D:\ML\统计表.ICO".
RETURN .T.
ELSE
=FCLOSE(nOpenFile)
RETURN .F.
ENDIF
各位高手些帮帮忙啊,我实在没办法,找出程序漏洞在那里,主要原因是文件名不知道为什么会变,还有就是FOPEN文件是不是有什么要求,我查看VFP帮助中没提到什么,但我的这个函数,以前我的多个程序都使用得正,不知道怎么现在出现问题,上面的MESSAGEBOX,COPY FILE命令行我是为了测试出错原因而加的.
