carlosmsi Posted January 12, 2008 Report Share Posted January 12, 2008 como faço para mostrar as pastas/diretorios existentes do micro, como o windows explorer Sou leigo no Fivewin e xHarbou mas estou gostando, pois sou programador muito antigo em Clipper mas consegui mudar meu sistema de Clipper para Fivewin e acabei de converter de Fivewin para xHarbour. Gostaria de Saber como eu faço uma Janela mostrando os Diretorios/Pasta com os arquivos existentes Como o windows explorer. Ja Transportei os meus Prgs executando no xDev Studio v0.65. Utilizo o Pelles para milhas dll e compilo meus programas no xHarbour devo usar um Treeview para mostrar as pastas e como faco o comando para carregar as pastas com o comando REDEFINE ... Alguem pode me dar uma dica de como fazer ou qual a melhor maneira. Pois eu tenha uma opção no sistema para gerar um arquivo txt e fiz uma tela para gravar o arquivo em Disquete ou no micro na pasta especifica mas agora gostaria de colocar a opção para o usuario escolher qual pasta ele deseja salvar o arquivo. Grato se alguem puder me ajudar. Quote Link to comment Share on other sites More sharing options...
carlosmsi Posted January 12, 2008 Author Report Share Posted January 12, 2008 como faço para mostrar as pastas/diretorios existentes do micro, como o windows explorer Sou leigo no Fivewin e xHarbou mas estou gostando, pois sou programador muito antigo em Clipper mas consegui mudar meu sistema de Clipper para Fivewin e acabei de converter de Fivewin para xHarbour. Gostaria de Saber como eu faço uma Janela mostrando os Diretorios/Pasta com os arquivos existentes Como o windows explorer. Ja Transportei os meus Prgs executando no xDev Studio v0.65. Utilizo o Pelles para milhas dll e compilo meus programas no xHarbour devo usar um Treeview para mostrar as pastas e como faco o comando para carregar as pastas com o comando REDEFINE ... Alguem pode me dar uma dica de como fazer ou qual a melhor maneira. Pois eu tenha uma opção no sistema para gerar um arquivo txt e fiz uma tela para gravar o arquivo em Disquete ou no micro na pasta especifica mas agora gostaria de colocar a opção para o usuario escolher qual pasta ele deseja salvar o arquivo. Grato se alguem puder me ajudar. Quote Link to comment Share on other sites More sharing options...
aokisantos Posted January 14, 2008 Report Share Posted January 14, 2008 verifique na sua pasta samples o prg GETDIR.PRG Espero ter ajudado. FWH25+XHARB 99.50+WS+SQLLIB+MYSQL Msn: aokisantos@hotmail.com Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 14, 2008 Report Share Posted January 14, 2008 Tente assim.. local cDirName := cGetDir( "Selecione uma pasta..","C:\ADMP67"+"\"+prop,; CurDrive() + ":\" + GetCurDir() ) cdir:=SUBSTR(cdirname,15,19) ddir:=cdirname IF LEN(dDIR)#18 MSGINFO("Pasta inválida","..::Aviso ") RETURN ENDIF Luiz Arruda - Corumbá/MS FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65 ico.corumba@gmail.com 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.