Selecionar pastas - API Windows

[JoséQuintas]

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.

[fladimir]

E ai novidades Zé? tb não achei

[Kapiaba]

Se entendi...

https://hmglights.wordpress.com/2009/06 ... o-getfile/

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

[fladimir]

Vlw Mano vou testar, grato.

[JoséQuintas]

Tem exemplo na SefazClass, na hora de selecionar arquivos pra teste....

 cXml := MemoRead( win_GetOpenFileName(, "Arquivo a assinar", "importa\", "XML", "*.XML", 1 ) )

https://github.com/JoseQuintas/sefazclass/blob/master/tests/test.prg

[paulovirt]

Amigos

Sei que o tópico é muito antigo, mas estou com esta mesma necessidade. O problema é que meu sistema está todo compilado no Xharbour 1.0, e nele o GETFILE não é reconhecido.
Alguém saberia me dizer se eu consigo fazê-lo funcionar nessa versão do xharbour ou se existe algum outro similar ao GETFILE que eu possa usar?
Obrigado

[lucimauro]

Ola.
Assim funciona em harbour

Tp_ArquivoImporta:=win_getopenfilename(,"Selecionar arquivo",hb_DirBase()),"*.txt","*.doc",1)