Como saber si existe una carpeta

[Begoguay]

Hola foreros.

Necesito saber si existe una carpeta. He estado mirando en las rutinas _CBL, y no encuentro ninguna que me sirva.

¿Alguien sabe alguna forma?

Un saludo.

[Gusaiello]

Lo mas simple que se me ocurre es intentar crearla, si el resultado es exitoso es por que no existía y si no lo es, es por que acabas de crearla (la carpeta no existía).

Luego veras que hacer con ella, si usarla o eliminarla.

[Kuk]

Begoguay, prueba con esto: 4.3 CBL_CHECK_FILE_EXIST (https://software.fujitsu.com/jp/manual/manualfiles/m150010/b1wd3360/01enz200/b3360-00-04-03-00.html)

---------- Post añadido : 11:27 ---------- Post anterior : 10:55 ----------

Begoguay, cuéntanos si ha funcionado ;)

[Begoguay]

Kuk, siento decirte que con eso no funciona.

Gusaiello, eso ya lo había pensado, pero no quiero crear una carpeta que de momento no voy a utilizar para nada.

Gracias a los dos igualmente

Un saludo

[Kuk]

Begoguay, creo recordar que a mi con el CBL_CHECK_FILE_EXIST2 me funcionaba.

Si no, lo que se me ocurre es que pongas en el form un CmFolder, le metas la ruta "padre" que te interesa y luego con un bucle verificas todas las carpetas por su nombre.

No sé si me explico

Y luego, claro está, siempre te queda la WinAPI : GetFileAttributesA function (fileapi.h) - Win32 apps | Microsoft Docs (https://docs.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getfileattributesa)

[Armando]

Hola, podes tambien chequear si te deja crear un archivo, si da error, pasas a crear el directorio:
Saludos
armando

VALIDO-DIR.
MOVE POW-FALSE TO bNO-DIR.

OPEN OUTPUT MARQUITA.
IF NOT TODO-OK
MOVE POW-TRUE TO bNO-DIR
GO FVALIDO-DIR
END-IF.

CLOSE MARQUITA.
DELETE FILE MARQUITA.
FVALIDO-DIR.
EXIT.

CREO-DIR.
CALL "CBL_CREATE_DIR"
USING cPATH-ACREAR
RETURNING status-code.
CONTROLO-CREADO.
IF status-code NOT = 0 *>aca se da mensaje