Página 1 de 1
Selecionar pastas - API Windows
Enviado: 31 Ago 2012 18:14
por 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.
Selecionar pastas - API Windows
Enviado: 23 Nov 2018 14:45
por fladimir
E ai novidades Zé? tb não achei
Selecionar pastas - API Windows
Enviado: 23 Nov 2018 16:01
por Kapiaba
Se entendi...
https://hmglights.wordpress.com/2009/06 ... o-getfile/
Código: Selecionar todos
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
Selecionar pastas - API Windows
Enviado: 23 Nov 2018 16:52
por fladimir
Vlw Mano vou testar, grato.
Selecionar pastas - API Windows
Enviado: 23 Nov 2018 19:04
por JoséQuintas
Tem exemplo na SefazClass, na hora de selecionar arquivos pra teste....
Código: Selecionar todos
cXml := MemoRead( win_GetOpenFileName(, "Arquivo a assinar", "importa\", "XML", "*.XML", 1 ) )
Selecionar pastas - API Windows
Enviado: 14 Fev 2022 00:25
por 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
Selecionar pastas - API Windows
Enviado: 16 Fev 2022 23:48
por lucimauro
Ola.
Assim funciona em harbour
Tp_ArquivoImporta:=win_getopenfilename(,"Selecionar arquivo",hb_DirBase()),"*.txt","*.doc",1)