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