文件存在的样例代码

下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。

以下代码要求输入文件名,然后检查该文件是否存在。

C1=注释/输入,请键入要检查的文件。

V1=FILE/EXISTS,C1.INPUT

如果/V1<>0

注释/操作者,文件存在。

END_IF/

ELSE/

注释/操作者,文件不存在。

END_ELSEIF/

代码说明

该代码大部分与读取字符的样例代码读取行的样例代码中所述类似。

下面仅介绍该示例独有的代码。

V1=FILE/EXISTS,C1.INPUT
此行检查以确定指定的文件是否存在。此文件必须放于 PC-DMIS 所在的目录中,此代码方能工作,包含有文件的这一行还必须包含该文件完整的路径。V1 接收文件检查结果。如果存在,则为非零值;反之为零。