Como copiar un grupo de archivo de una sola etension

[dec]

Hola,

Otra opción puede ser usar la función "ShFileOperation()" de la unidad "ShellApi.pas", que puede dar bastante juego. Aquí un sencillo ejemplo:

Código Delphi [-]
uses
  ShellApi;

function CopiarArchivo(const origen, destino: string): boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp),#0);
  with FileOp do begin
    wFunc := FO_COPY;
    pTo := PChar(destino+#0#0);
    pFrom := PChar(origen+#0#0);
    fFlags := FOF_NOCONFIRMATION;
  end;
  result := (ShFileOperation(FileOp) = 0);
end;

// Ejemplo de llamada a CopiarArchivo()
procedure TForm1.Button1Click(Sender: TObject);
begin
  CopiarArchivo('C:\archivos\*.txt','C:\archivos2\');
end;