Como copiar un grupo de archivo de una sola etension

[[kurono]]

hola amigos del foro tengo un problema quiero hacer una aplicacion en delphi 7 que me copie un grupo de archivo de una sola extension por ejemplo *.doc eso se hace facil en DOS que seria copy "c:\*.doc" "d:" pero me gustaria hacer eso con delphi 7 debo aclarar que se copiar archivo con delphi 7 pero solo se copiar uno a la ves no todo el codigo seria este

copyfile(pchar('c:\nombre.doc'),pchar('d:\nombre.doc'),true);

si hay una forma de modificar este codigo para que copie un grupo de archivo de una sola extension se lo agradeceria mucho

[xeBuz]

Ojala te sirva, con FindFirst() da el primer valor, y sigue en un bucle mientras haya mas archivos (con FindNext() )
El Memo que esta ahi es para que agregue los archivos que copió

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
sExt : string;
sPathOrigen, sPathDestino : string;
SearchRec: TSearchRec;

begin
sExt:= 'txt';
sPathOrigen := 'C:\';
sPathDestino := 'E:\';

if FindFirst (sPathOrigen + '*.' + sExt, faAnyFile, SearchRec) = 0 then
    begin
      repeat
        begin
          Memo.Lines.Add(SearchRec.Name);
          copyfile(pchar(sPathOrigen + SearchRec.Name, pchar(sPathDestino + SearchRec.Name, true); 
        end;
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
    end;
end;

Saludos,
Jesus Fernando

[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;

[[kurono]]

ok gracias amigo me funciono