Como listar los archivos de un determinado directorio al dar click en un boton?

[ecfisa]

Hola nuevamente.

Un ejemplo que implementa el procedimiento de dec en el evento OnClick de un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    ArchivosDirectorio('C:\Windows\', '*.*',  TS, True);
    ListBox1.Items.Assign(TS);
  finally
    TS.Free;
  end;
end;

Saludos

[Missael]

Empezado por ecfisa

Hola nuevamente.

Un ejemplo que implementa el procedimiento de dec en el evento OnClick de un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    ArchivosDirectorio('C:\Windows\', '*.*',  TS, True);
    ListBox1.Items.Assign(TS);
  finally
    TS.Free;
  end;
end;

Saludos

Gracias por la respuesta, lo que me tiene mas en duda es revisar los subdirectorios, como tengo un path especifico, hay dos tipos de archivos, uno contiene mas subcarpetas que el otro, pero ambos tienen el mismo path hasta cierta carpeta, y solo quiero que me mande un mensaje nombrando todos los archivos encontrados en las subcarpetas.

esta el codigo de la seccion trucos pero como lo implemento en un boton?

[[movorack]]

¿Que tanto tienes elaborado?

[Missael]

Código Delphi [-]
procedure TForm2.UploadClick(Sender: TObject);
begin
  time := milli(Now);
  times := IntToStr(time);
  //ShowMessage('19'+times);
  path := ''+Choose+'\exportGeneralInstructions'+fileName+'\qcExcel\'+json+'\productReport\';
  if (FindFirst(path + '*' , faArchive, sr )  and FindFirst(path + '*' , faDirectory, sr )) = 0 then
  begin
  repeat
    //if (sr.Attr and faArchive) = faArchive then
      ShowMessage('File Name: '+ sr.Name);
      if DirectoryExists(sr.name) then
      else
      begin
        path := path + sr.Name; 
      end;

  until FindNext(sr) <> 0;

  end
  else
    begin
    ShowMessage('Files not found');
    end;
    FindClose(sr);
    res := '{"localid":"15'+times+'-'+path+'\","deviceid":"windowsapp","createddate":15'+times+',"userid":0,"qaqcid":'+json+'}';
end;

Tengo eso, ahorita lo que estoy haciendo (no se si sea lo correcto) es agregar al path el nombre de la carpeta, de ahi seguir inspeccionando una por una, hacer un ciclo, que lo haga hasta que ya no encuentre carpetas por revisar
Choose: es la direccion que escoge el usuario a guardar sus archivos que se descomprimen automaticamente

los otros valores son de un json.