Crear carpetas/directorios

[Recato53]

Buenos días.

Quiero crear carpetas desde una aplicación, ahora estoy creándolas con comandos MS/DOS, es posible hacerlo con comandos PowerCobol.

Muchas gracias.

[Kuk]

Recato53, para este tipo de cosas, debes usar sea WinAPI, sea la librería CBL_ que trae Fujitsu.

Ejemplo de la CBL para crear directorio:

CBL_CREATE_DIR2 creates a directory. The difference between the
CBL_CREATE_DIR subroutine and this subroutine is that this subroutine can support
a directory name containing a space.


WORKING-STORAGE SECTION.
01 path-name PIC X(n).
01 status-code PIC S9(4) COMP-5.
PROCEDURE DIVISION.
CALL "CBL_CREATE_DIR2" USING path-name RETURNING status-code.



Interface
path-name
Specifies a full or partial path name, ending with a null character. The maximum size
of the path name is 248.
Return code
The return code is set in the status-code specified in the RETURNING clause.
status-code
0: Successful
Other than 0: Failure


Recuerda que para que esto funcione, debes añadir la F3BICBLR.LIB que se encuentra en %programfiles%\Fujitsu NetCOBOL for Windows a tu proyecto.

Para ver todas las funciones, mira el PDF en adjuntos.