语句是这样的 x='e:\data\sjshb.dbf
y='x'
z='sjshb'
sele * from &x into table &y
copy to table &z type foxplus
close all
现在的问题是用if...else 先判断一下,如果sjshb.dbf 存在的话 则执行此语句 如果sjshb.dbf不存在的话,则不执行此语句,请教大神帮忙?
如果sjshb.dbf 不存在 则不执行以上5句命令,并且继续执行后面的语句。如果sjshb.dbf存在,则执行以上5句命令
if file(文件) &&存在
else
endIf
file函数:
查找指定的文件。
FILE(cFileName [, nFlags])
参数
cFileName
指定要查找的文件名。cFileName
必须包含文件扩展名。可以在文件名中包含路径以便搜索非当前目录或驱动器下的文件。如果文件名中没包含路径,Visual FoxPro
会在默认目录下搜索该文件。如果在默认目录下没找到该文件,Visual FoxPro 会沿着 SET PATH 确定的 Visual FoxPro
路径搜索。
nFlags
指定当文件存在,但可能被标记为 Hidden 或 System 属性时,FILE( )
返回值的类型。下表列示了 nFlags 的值。
nFlags
说明
0
文件存在但被标记为 Hidden 或 System 属性时,FILE( ) 返回 False
(.F.)。(默认)
1
如果文件存在 FILE( ) 就返回 True (.T.),而不论其文件属性。将 nFlags 设置为
1,将允许检查隐藏或系统文件。
返回值
逻辑型数据类型。如果在磁盘上发现了指定的文件,FILE( ) 返回 True (.T.),否则,返回 False
(.F.)。
说明
可以使用 ADIR( ) 函数来获取文件的特定属性。
可以使用 CD 和 CHDIR 命令来切换隐藏文件和目录。
示例
下面示例显示了一个指出 Visual FoxPro 资源文件是否存在于 Visual FoxPro
启动目录下的信息。
复制程序代码
SET PATH TO HOME( )
CLEAR
IF FILE('foxuser.dbf')
WAIT WINDOW 'Visual FoxPro 资源文件存在'
ELSE
WAIT WINDOW 'Visual FoxPro 资源文件不存在'
ENDIF追问
else
endIf
file函数:
查找指定的文件。
FILE(cFileName [, nFlags])
参数
cFileName
指定要查找的文件名。cFileName
必须包含文件扩展名。可以在文件名中包含路径以便搜索非当前目录或驱动器下的文件。如果文件名中没包含路径,Visual FoxPro
会在默认目录下搜索该文件。如果在默认目录下没找到该文件,Visual FoxPro 会沿着 SET PATH 确定的 Visual FoxPro
路径搜索。
nFlags
指定当文件存在,但可能被标记为 Hidden 或 System 属性时,FILE( )
返回值的类型。下表列示了 nFlags 的值。
nFlags
说明
0
文件存在但被标记为 Hidden 或 System 属性时,FILE( ) 返回 False
(.F.)。(默认)
1
如果文件存在 FILE( ) 就返回 True (.T.),而不论其文件属性。将 nFlags 设置为
1,将允许检查隐藏或系统文件。
返回值
逻辑型数据类型。如果在磁盘上发现了指定的文件,FILE( ) 返回 True (.T.),否则,返回 False
(.F.)。
说明
可以使用 ADIR( ) 函数来获取文件的特定属性。
可以使用 CD 和 CHDIR 命令来切换隐藏文件和目录。
示例
下面示例显示了一个指出 Visual FoxPro 资源文件是否存在于 Visual FoxPro
启动目录下的信息。
复制程序代码
SET PATH TO HOME( )
CLEAR
IF FILE('foxuser.dbf')
WAIT WINDOW 'Visual FoxPro 资源文件存在'
ELSE
WAIT WINDOW 'Visual FoxPro 资源文件不存在'
ENDIF追问
end if 不影响接下来要执行的语句吧
追答不影响
追问我按照你这个语句执行,foxpro 程序报错提示: 文件没有找到,不能继续执行接下来的语句。你好,请问你有QQ吗?本人菜鸟向您请教
温馨提示:答案为网友推荐,仅供参考