varrer diretório

Delphi

24/03/2005

como faço para varrer um diretório, na pasta que eu criei


Cesar3103

Cesar3103

Curtidas 0

Respostas

Slyavalon

Slyavalon

24/03/2005

Não compreendi bem, poderia dar mais detalhes???


GOSTEI 0
Cesar3103

Cesar3103

24/03/2005

é o seguinte, eu preciso fazer um programa que leia o conteúdo de uma pasta externa e traga todos os nomes dos arquivos lá encontrados para um lista, e dentro do programa quando clicar em um dos nomes, ter uma janela que mostre a figura correspondente, no caso são fotos.


GOSTEI 0
Kapak

Kapak

24/03/2005

var TS:TSearchRec; iRet:Integer;
begin
  iRet := FindFirst(´Caminho da Pasta\*.*´, faAnyFile, TS);
  While iRet = 0 do
  begin
    if (TS.Attr and $20) > 0 then
      ListBox1.Items.Add(TS.Name);
    iRet := FindNext(TS);
  end;
  FindClose(TS);
end;



GOSTEI 0
Antseralves

Antseralves

24/03/2005

Me manda teu email que mando um pequeno exemplo de como fazer isso.


GOSTEI 0
Cesar3103

Cesar3103

24/03/2005

cesaraugusto71065@gmail.com, obrigado pessoal


GOSTEI 0
Slyavalon

Slyavalon

24/03/2005

Tambem gostaria do exemplo, se possivel me mande:

caosdan@gmail.com

Valeu!!


GOSTEI 0
POSTAR