[Sintaxis] Ver si existe un archivo

[JuanJuan77]

Hola, como puedo saber en powercobol si existe un archivo en un directorio?

saludos

[Kuk]

JuanJuan77, hay varios modos. Se puede hacer por WinAPI, también con un CmFile y recorrerlo. Pero lo más fácil y apropiado en este caso será usar la rutina correspondiente:

 WORKING-STORAGE SECTION.
 01 file-name          PIC X(n).
 01 file-details.      
    02 file-size       PIC 9(18) BINARY.
    02 file-date.      
       03 day          PIC 9(4) BINARY.
       03 month        PIC 9(4) BINARY.
       03 year         PIC 9(4) BINARY.
    02 file-time.      
       03 hour         PIC 9(4) BINARY.
       03 minute       PIC 9(4) BINARY.
       03 second       PIC 9(4) BINARY.
       03 1-100-second PIC 9(4) BINARY.
 01 status-code        PIC S9(4) COMP-5.
 
PROCEDURE DIVISION.
 
    CALL "CBL_CHECK_FILE_EXIST2" 
       USING file-name file-details 
       RETURNING status-code

Para poder usar las rutinas CBL_ hay que añadir la librería siguiente al proyecto:

C:\Program Files\Fujitsu NetCOBOL for Windows\F3BICBLR.lib

[Adrianeloy]

JuanJuan77, yo "cargo" el fichero a un Item EDIT de esta forma:

     CALL LOADFILE OF EDIT1 USING "ruta y nombre del archivo"
     IF PROGRAM-STATUS NOT = ZEROS DISPLAY "El archivo no existe".

De esto modo, no necesito agregar librerias y puedo leer hasta rutas y nombres de archivo con espacios en blanco.

NOTA: Al item EDIT1 lo limito a 1 caracter para que no lea ficheros pesados innecesariamente.
(O sea, entro su "Edit Item Style\ExStyle...", tildo "Limit Text" y le pongo 1 de valor)

[Kuk]

Adrianeloy, usa el resalto de sintaxis

En cuanto al tema, en PowerCOBOL 9 si el archivo no existe, creo recordar que da error. Además, puede que necesites comprobar un archivo que no es de texto plano. Por ejemplo un indexado.

[Adrianeloy]

Kuk, es cierto, la verdad lo usé y probé solo en PowerCobol V3.
Pero te aseguro que funciona con todo los tipo de archivos (texto, indexados, jpg, etc...)

[JuanJuan77]

❞ JuanJuan77, yo "cargo" el fichero a un Item EDIT de esta forma:      CALL LOADFILE OF EDIT1 USING "ruta y nombre del archivo"      IF PROGRAM-STATUS NOT = ZEROS DISPLAY "El archivo no existe". De esto modo, no necesito agregar librerias y puedo leer hasta rutas y nombres de archivo con espacios en blanco. NOTA: Al item EDIT1 lo limito a 1 caracter para que no lea ficheros pesados innecesariamente. (O sea, entro su "Edit Item Style\ExStyle...", tildo "Limit Text" y le pongo 1 de valor)

al mover una ruta y nombre del archivo donde no existe el archivo me da un error y no puedo resolverlo.

[Josber]

❞ al mover una ruta y nombre del archivo donde no existe el archivo me da un error y no puedo resolverlo.

¿Qué error te da?