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: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Selecionar pastas - API Windows
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, 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, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, 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: 1908
- 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: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
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, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, 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, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, 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)