Crea carpeta (directorio) en la estación cliente (modo Thin Client)

Esta rutina permite crear una carpeta en la estación del cliente. Usa la siguiente sintaxis:

CALL "CREA_DIR_TC.src","carpetacliente",ok

donde:

"carpetacliente" es una ruta válida en la estación cliente

ok entrega 0 si la operación falla y distinto de 0 si la operación es exitosa

rem

rem "=======================================================================

rem " Crea carpeta en el cliente

rem "=======================================================================

crea_dir_tc:

rem

enter dir$,salida_ok

rem

salida_ok=1

while 1

while 1

existe=0

fs!=BBjAPI().getThinClient().getClientFileSystem()

carpeta!=fs!.getClientFile(dir$,err=*next)

crea_ok=carpeta!.mkdir(err=*next)

if crea_ok=0 then

salida_ok=0

reset

stop

else

break

endif

wend

if crea_ok then

if carpeta!.isDirectory() then

break

else

salida_ok=0

break

endif

else

break

endif

wend

rem

stop