sig_gilberto Posted September 15, 2011 Report Share Posted September 15, 2011 Olá Desenvolvedores, Boa Tarde! Como faço para que ao abrir uma caixa de dialogo, possa selecionar mais de um determinado tipo de arquivo ? Exemplo: Veja no exemplo abaixo, que só serão exibidos os arquivos com extençaõ "*.COB". Eu quero incluir na exibição mais de uma extensão : *.COB, *.OUT Tem como ? Function BuscaArq(BTipo) ArqEnt=cGetFile(BTipo,"Selecione o Arquivo",,WPasta) ArqEnt=iif(!Empty(ArqEnt),cFileNoPath(ArqEnt),"*.COB") <<--Aki! oGet1:SetFocus() If Alltrim(ArqEnt)#"*.COB" .and. Alltrim(ArqEnt)#"*.OUT" MsgRun("Identificando o Arquivo...",WCli,CriaDbf_OUT()) Endif SysRefresh() Return ArqEnt ________________________ Gilberto Herminio - Analista de Desenvolvimento de Sistemas Mogi das Cruzes-SP xHB121+Fw912 / C#/SQL2008 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 15/09/2011 16:40:09 Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted September 15, 2011 Author Report Share Posted September 15, 2011 Olá Desenvolvedores, Boa Tarde! Como faço para que ao abrir uma caixa de dialogo, possa selecionar mais de um determinado tipo de arquivo ? Exemplo: Veja no exemplo abaixo, que só serão exibidos os arquivos com extençaõ "*.COB". Eu quero incluir na exibição mais de uma extensão : *.COB, *.OUT Tem como ? Function BuscaArq(BTipo) ArqEnt=cGetFile(BTipo,"Selecione o Arquivo",,WPasta) ArqEnt=iif(!Empty(ArqEnt),cFileNoPath(ArqEnt),"*.COB") <<--Aki! oGet1:SetFocus() If Alltrim(ArqEnt)#"*.COB" .and. Alltrim(ArqEnt)#"*.OUT" MsgRun("Identificando o Arquivo...",WCli,CriaDbf_OUT()) Endif SysRefresh() Return ArqEnt ________________________ Gilberto Herminio - Analista de Desenvolvimento de Sistemas Mogi das Cruzes-SP xHB121+Fw912 / C#/SQL2008 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 15/09/2011 16:40:09 Quote Link to comment Share on other sites More sharing options...
henning Posted September 15, 2011 Report Share Posted September 15, 2011 cArquivo := cGetFile( 'ARquivos DBF e Zip |*.dbf;*.zip|', "Escolha um local para Gravar o Backup",,'.\\',.t.) FWH 9.08(original), FWH 11.08(original) xHarbour 1.2.1, harbour 3.1, hbMake, hbmk2, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo). Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted September 15, 2011 Author Report Share Posted September 15, 2011 É isso ai!! Valeu!!! ________________________ Gilberto Herminio - Analista de Desenvolvimento de Sistemas Mogi das Cruzes-SP xHB121+Fw912 / C#/SQL2008 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.