用户在TXTE1中输入文件夹名称,在TEXT2输入表的名称,查看此文件夹下的表是否存在。 local w,b w=alltrim(thisform.text1.value) b=alltrim(thisform.text2.value if not file('d:\glxt\&w\&b.dbf') messagebox('无!',0+64+0,'提示') else messagebox('有!',0+64+0,'提示') 为什么表存在也提示“无”呢? 说明:1 表不用输入扩展名;2 d:\glxt为项目所在的文件夹。
"d:\glxt"一般可以省略,指定了反而不利于移植到其他位置。 建议改为: w=alltrim(thisform.text1.value)+"\"+alltrim(thisform.text2.value)+".dbf" if not file("&w") &&或者if not file(&w)试试