Hola, el comando sería CopyFile(source, destination: pchar; overwrite: boolean): boolean, devuelve true si tiene éxito.
En cuando a lo de excluír archivos no te acabo de comprender bien, pero podrías hacer algo como esto:
Código Delphi
[-]
function CopiarArchivo (filename: string): boolean;
var
FormatosExcluidos: array [1..3] of pchar;
i: integer;
begin
result:=false;
FormatosExcluidos[1]:= '.mp3';
FormatosExcluidos[2]:= '.mpg';
FormatosExcluidos[3]:= '.avi';
If FileExists(Filename)=false then exit;
result:= true;
for i:=1 to 3 do begin
If ExtractFileExt(filename) = FormatosExcluidos[i] then
result:= false
end else
CopyFile(pchar(filename), pchar('TuRuta'), true);
end;
end;
Es una función que acabo de hacer al vuelo, pero la idea sería la de comprobar la extensión de los archivos y si esa extensión se encuentra en tu lista negra.. no los copia
![Big Grin](http://www.clubdelphi.com/foros/images/smilies/biggrin.gif)
Salu2