检查文件是否存在进行中4GL

Question

如何使用代码检查特定文件的存在。  例如。       def var a as character。           a =“abc.p”

运行值（a）。   ---＆GT;首先，我想检查工作区中是否存在abc.p。

Answer 1

您可以使用SEARCH功能。直接来自在线手册：

搜索功能 搜索PROPATH环境变量中定义的目录和库以查找文件。 SEARCH函数返回文件的完整路径名，除非在当前工作目录中找到它。如果SEARCH找不到该文件，则返回Unknown值（？）。

<强>语法

SEARCH ( opsys-file ) 

opsys-file

一个字符表达式，其值是您要查找的文件的名称。名称可以包括完整或部分目录路径。如果opsys-file是常量字符串，则必须用引号（“”）将其括起来。 opsys-file的值不得超过255个字符。

示例：

DEFINE VARIABLE cPgm AS CHARACTER   NO-UNDO.

cPgm = "test.p".

IF SEARCH(cPgm) <> ? THEN 
    RUN VALUE(cPgm).

  

    

    
• 如果您提供完全限定的路径名​​，则SEARCH会检查该文件是否存在。在这种情况下，SEARCH不会搜索PROPATH上的目录。