[DELPHI] LISTAR TODOS OS ARQUIVOS DE UM DIRETÓRIO

procedure TForm1.Button1Click(Sender: TObject);

var

  I: Integer;

  s: TStringBuilder;

  SR: TSearchRec;

  path: string;

begin

  if SelectDirectory('Selecione uma pasta', 'C:\', path) then

  begin

    if FindFirst(path + '\*.*', faanyfile, SR) = 0 then

    begin

      s := TStringBuilder.Create;

      try

        repeat

          if (SR.Attr <> faDirectory) then

          begin

            s.AppendLine(SR.Name);

          end;

        until findnext(SR) <> 0;

        ShowMessage(s.ToString);

      finally

        FindClose(SR);

        FreeAndNil(s);

      end;

    end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】