Cita:
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?