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
Moderador: Moderadores
-
JoséQuintas
- Administrador
- Mensagens: 20415
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
- Curtiram: 1 vez
Selecionar pastas - API Windows
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Selecionar pastas - API Windows
E ai novidades Zé? tb não achei
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
Kapiaba
- Colaborador
- Mensagens: 1912
- Registrado em: 07 Dez 2012 16:14
- Localização: São Paulo
- Contato:
Selecionar pastas - API Windows
Se entendi...
https://hmglights.wordpress.com/2009/06 ... o-getfile/
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
Vlw Mano vou testar, grato.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
JoséQuintas
- Administrador
- Mensagens: 20415
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
- Curtiram: 1 vez
Selecionar pastas - API Windows
Tem exemplo na SefazClass, na hora de selecionar arquivos pra teste....
https://github.com/JoseQuintas/sefazcla ... s/test.prg
Código: Selecionar todos
cXml := MemoRead( win_GetOpenFileName(, "Arquivo a assinar", "importa\", "XML", "*.XML", 1 ) )
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Selecionar pastas - API Windows
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
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
Ola.
Assim funciona em harbour
Tp_ArquivoImporta:=win_getopenfilename(,"Selecionar arquivo",hb_DirBase()),"*.txt","*.doc",1)
Assim funciona em harbour
Tp_ArquivoImporta:=win_getopenfilename(,"Selecionar arquivo",hb_DirBase()),"*.txt","*.doc",1)