mostrar diretorios

[carlosmsi]

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.

[carlosmsi]

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.

[aokisantos]

verifique na sua pasta samples o prg GETDIR.PRG

Espero ter ajudado.

FWH25+XHARB 99.50+WS+SQLLIB+MYSQL

Msn: aokisantos@hotmail.com

[Luiz Arruda (ICO)]

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