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 http://cobolforo.es/images/editor/cobol.gif

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?