Crea directorio en estación cliente

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