O harbour tem pronto o diálogo de selecionar pastas?
Ou por acaso alguém teria?
Encontrei somente Win_GetOpenFileName(), e por enquanto vou ter que quebrar o galho com ela.
Moderador: Moderadores
FUNCTION Main()
LOCAL cDirName := cGetDir( "Selecione uma pasta..","C:\Quintas"+"\"+prop,;
CurDrive() + ":\" + GetCurDir() )
cdir := SUBSTR(cdirname,15,19)
ddir := cdirname
IF LEN(dDIR)#18
MSGINFO("Pasta inválida","..::Aviso ")
RETURN
ENDIF
RETURN NIL
cXml := MemoRead( win_GetOpenFileName(, "Arquivo a assinar", "importa\", "XML", "*.XML", 1 ) )
Usuários vendo este fórum: lucimauro e 6 visitantes