Como visualizar ver arquivos que têm dentro de pastas

[BHAMF]

Uma dúvida CRUEL que não consigo resolver. Há algum comando para listar arquivos e pastas na tela e exibi-las na consola?

[passarito]

Sim. Pesquisa findfirst e findnext

[BHAMF]

Obrigado Passarito. Entendi aqui, mas queria que me explicasse cada parte do código. Vi que funciona, mas não estou conseguindo compreender...

[passarito]

O findfirst procura o primeiro ficheiro, o findnext procura os seguintes. Em ambas as funções é devolvido um valor em que se for zero quer dizer que encontrou.

Assim, um exemplo rápido e fácil será:

Uses SysUtils;

Var Info:TSearchRec;

begin
  if findfirst('*.pas', AnyFile, Info)=0 then begin  //procura o primeiro ficheiro e coloca a informação no record Info
    repeat
      writeln(info.name);
    until findnext(info)<>0; //procura o próximo ficheiro
  end;
  findclose(Info);  //fecha find
end.

O registo Info tem "todas" as informações do ficheiro: Nome, data, tamanho, etc.

Estrututa do TSearchRec: https://www.freepascal.org/docs-html/rtl/sysutils/trawbytesearchrec.html

[BHAMF]

Agradecimentos para tu, @passarito, ajudou muito! 

 

:D_

 

B.H.A.M.F.

17/07/2018 | 11:13 (Horário de Brasília)