obtener un listado de archivos

[JorgeBec]

Hola Comunidad! la pregunta es la siguiente, como obtengo la lista de los archivos con cierta extension de una carpeta, esto para fines de respaldo.

[roman]

Puedes usar las funciones FindFirst, FindNext y FindClose para recorrer los archivos de un directorio.

Otra forma que podría ser útil en ciertos casos es llenando directamente un ListBox con

ListBox1.Perform(LB_DIR, DDL_ARCHIVE, LongInt(PChar('c:\windows\*.exe')));

que llenará el ListBox con todos los archivos en c:\windows de extensión .exe

// Saludos

[Neftali [Germán.Estévez]]

Empezado por roman

...Otra forma que podría ser útil en ciertos casos es llenando directamente un ListBox con:
ListBox1.Perform(LB_DIR, DDL_ARCHIVE, LongInt(PChar('c:\windows\*.exe')));

Ésta no la conocía; Muy bueno, sí señor.

[[Lepe]]

Román, ¿pero como se llama el libro que estas leyendo ahora chico?

Supongo que no será para novatos como yo no?

[roman]

Lo de LB_DIR es tan viejo como el Windows de 16 bits. Yo mismo no lo recordaba hasta hace unos días que por otras razones revisé la lista de mensajes a un listbox. Me parece recordar que incluso uno de los controles viejitos de Delphi para mostrar los archivos de un directorio está o estaba implementado así.

// Saludos

[[Delphius]]

Disculpa roman... yo tengo que hacer algo parecido... buscar en subdirectorios algun tipo de archivo.... para ello hago lo siguiente:

Código Delphi [-]

procedure TForm1.RastreaDir(Dir: String;Tipo: String);
var
   FileSearch: TSearchRec;
begin
chDir(Dir);
if FindFirst('*.*',faDirectory,FileSearch)=0
   then begin
        Repeat
         if ((FileSearch.Attr and faDirectory) = faDirectory)
            then begin
                 if (FileSearch.Name <> '.') and (FileSearch.Name <> '..')
                     then begin
                            try
                            RastreaDir(Dir+'\'+FileSearch.Name,Tipo);
                            Except on Ex: Exception do
                            MessageBox(Handle,Pchar(Ex.Message),Pchar('Error'),MB_OK);
                            end;
                          end;
                 end
            else begin
                 if (AnsiUpperCase(ExtractFileExt(FileSearch.Name))) = Tipo
                    then begin
                         Memo1.Lines.Add(Dir+'\'+FileSearch.Name);
                         end;
                 end;
        Until FindNext(FileSearch) <> 0;
        FindClose(FileSearch);
        end;
end;

Pero no busca en todos los subdirectorios algunas veces... ¿que anda mal?