Ayuda Carpetas - Cargar fecha y hora de creación.

[lfortuny]

Necesito desde programa leer la fecha y hora de creación y/o modificación de una o varias carpeta/s.
¿Me pueden ayudar?
El 'FileList' no me sirve ya que puede no haber ficheros en la carpeta y, si los hubiera pueden ser de una fecha u hora que no correspondan con la creación de la carpeta.

Gracias.

[JCantero]

@lfortuny, yo lo realizo con un call "system" realizando un dir direccionado a un fichero y despues a analizar.

Salvo que tu cobol lleve algo especifico, no tendras otra opcion.

[Kuk]

@lfortuny, me parece que hablas de PowerCOBOL. Si es el caso, tienes el FolderList a tu disposición en el panel de componentes.

Si hablas de otro entorno, dinos cuál. ;)

También puedes recurrir a las herramientas nativas del SO, en Windows, lanzar un dir y leer la salida como fichero secuencial.

[lfortuny]

Cierto, PowerCobol.
El FolderList no me devuelve la fecha y hora de creación de la carpeta, que puede o no tener datos.
Lo mejor, es como dice JCantero es usar el 'DIR' creando un archivo temporal y analizándolo.
Gracias a tod@s.

[Joseg]

Necesito desde programa leer la fecha y hora de creación y/o modificación de una o varias carpeta/s.
¿Me pueden ayudar?
El 'FileList' no me sirve ya que puede no haber ficheros en la carpeta y, si los hubiera pueden ser de una fecha u hora que no correspondan con la creación de la carpeta.

Gracias.


01 file-name PIC X(n).
01 file-details.
02 file-size PIC 9(18) BINARY.
02 file-date.
03 days PIC 9(4) BINARY.
03 months PIC 9(4) BINARY.
03 years PIC 9(4) BINARY.
02 file-time.
03 hours PIC 9(4) BINARY.
03 minutes PIC 9(4) BINARY.
03 seconds PIC 9(4) BINARY.
03 m-secs PIC 9(4) BINARY.
01 status-code PIC S9(4) COMP-5.


Calling format
CALL "CBL_CHECK_FILE_EXIST2"
USING file-name
file-details
RETURNING status-code.



Return code
- 0: Successful
- Other than 0: Failur


Adicionar ao projecto a libraria: F3BICBLR.lib

Mais detalhes: https://software.fujitsu.com/jp/manual/manualfiles/m140007/b1wd3297/01enz000/b1wd-3297-01enz0.pdf

[lfortuny]

Gracias Joseg.
No me sirve, el 'CHK_FILE_EXIST2' no me retorna información de la carpeta, devuelve información del fichero que quiera analizar.

Se puede hacer con algo así:

INITIALIZE llama-dir
STRING "CMD /C " DELIMITED BY SIZE
X"22" DELIMITED BY SIZE
"DIR /A:D >> fichero.txt" DELIMITED BY SIZE
X"22" DELIMITED BY SIZE
INTO llama-dir
END-STRING
INVOKE POW-SELF "ExecuteSync" USING llama-dir pow-swhide RETURNING ReturnValue
y luego analizar el 'fichero.txt' que ha generado en la carpeta en curso.