Paineis PHC

[Xtreem]

Desde já, boas, comunidade,

Tenho uma pequena duvida em relação à contrução de paineis PHC.
Eu queria implementar um botão no painel para criar uma diretoria para posteriormente armazenar lá dados de clientes, já estive a pesquisar mas o que encontrei foi codigo foxpro

[
IF !DIRECTORY("C:\Cliente")
TRY
MD "C:\Cliente"
CATCH TO ex
MESSAGEBOX(ex.message, 48, _screen.Caption)
ENDTRY
ENDIF
]

que eu implementei e não consegui pôr a funcionar ...

 

[Xtreem]

Ok, ja cheguei a uma solução, aqui esta o codigo caso haja alguem com o mesmo problema:

Botão Criar Diretorio:

local Dir, Num

select cl

Dir = "C:\Users\it2\Desktop"
Doc = "\"+"Documentos"
Num = "\Documentos"+(Campo Dinamico)

IF !DIRECTORY(Dir+Doc+Num)
MD (Dir+Doc+Num)
MSG("Diretorio Criado!")
Else
MSG("Não é possivel criar Diretorio!")
ENDIF

Botão Abrir Diretorio Criado:

local Dir, Num

select cl

Dir = "C:\Users\it2\Desktop"
Doc = "\"+"Documentos"
Num = "\Documentos"+(Campo Dinamico)

lcPath = Dir+Doc+Num
RUN explorer.exe &lcPath

Se alguem tiver uma solução mais eficiente ou simpatica partilhem