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/manu...297-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.