Check if file exists

[matt23lucier]

In progress (9.1e) how do you check if the following file exists, c:\temp\customer.txt. Does anyone know how to do this?
Thanks
Matt

 

[MadMichael]

Here's how I did that for a file named 'banner.dat':

 DEF VAR v-banner-test AS CHARACTER EXTENT 6 FORMAT "x(76)" NO-UNDO.
INPUT THROUGH DIR banner.dat NO-ECHO.
           SET v-banner-test[1].
           SET v-banner-test[2].
           SET v-banner-test[3].
           SET v-banner-test[4].
           SET v-banner-test[5].
           SET v-banner-test[6].
           INPUT CLOSE.
           IF v-banner-test[6] MATCHES "*banner*" THEN DO:
               /* do stuff here when banner.dat exists */
           END.

This works because line 6 of the DIR command output will have either 'FILE NOT FOUND' or it will contain the filename.

 

[HelloMike]

Here's a very different method ...

ASSIGN FILE-INFO:FILE-NAME = "c:\temp\customer.txt".
IF NOT FILE-INFO:FILE-TYPE BEGINS "F" THEN
    MESSAGE "Not a file".

Cheers, Mike.