Clarion - Crear Directorio

Alguien podria indicarme como puedo crear un directorio por programa, tengo el clarion 5.5ee...

Por otro lado tengo un problema de acceso al modificar un archivo..... Cuando ago el add todo tranquilo, el problema me da al momento de querer modificar cualquier registro.

Desde ya muy agradecidos

saludos
emonges, ASU-PY

Prueba con esto:

en el embebido global "Inside the global map" prioridad 4000 :

MODULE('WINAPI')
MkDIr(*CSTRING),SHORT,RAW,NAME('_mkdir'),PROC
END

y cuendo quieras crear un directorio:

IF NOT EXISTS('.Temp') ! si no existe la carpeta Temp en el directorio Local
LOC:dire = LONGPATH()&'Temp' !! paso la ruta a una variable cstring
IF MkDir(LOC:dire)<0 !! Creo la carpeta
MESSAGE('No se pudo crear el directorio Temp ',0{PROP:TEXT},ICON:EXCLAMATION)
END!IF
END!IF

Espero te sirva, yo lo tengo embebido en el open the window del Frame (Menu)

Saludos,
Bassi, Rodrigo

va de nuevo porque no me salio la barra invertida cuando pregunta por la carpeta Temp.

Prueba con esto:

en el embebido global "Inside the global map" prioridad 4000 :

MODULE('WINAPI')
MkDIr(*CSTRING),SHORT,RAW,NAME('_mkdir'),PROC
END

y cuendo quieras crear un directorio:

IF NOT EXISTS(Ruta) ! si no existe directorio
LOC:dire = Ruta !! paso la ruta a una variable cstring
IF MkDir(LOC:dire)<0 !! Creo la carpeta
MESSAGE('No se pudo crear el directorio ',0 PROP:TEXT},ICON:EXCLAMATION)
END!IF
END!IF

Espero te sirva, yo lo tengo embebido en el open the window del Frame (Menu)

Saludos,
Bassi, Rodrigo

te agradesco mucho por la ayuda, me fue de muchisima utilidad

saludos

em, ASU-PY

De nada! me alegro que te haya sido útil.

Saludos!

Bassi, Rodrigo.-

muchas pero muchas gracias espero yo tambien aportar

solo me queda que dios los llene de salud y prosperidad