FileCopy excluyendo archivos

[fpenaranda]

Estimados amigos, resulta que tengo un problema con filecopy(), lo que necesito es realizar la copia de archivos excluyendo archivos de tipo mp3, mpg, etc. sin embargo no encuentro como hacerlo, ya traté Xcopy, es una buena solución, pero debo rflejar los mismo que hace el Xcopy usando fileCopy.
El comando del Xcopy sería: Xcopy "Source" "Destination" EXCLUDE: archive.txt, donde archive.txt contiene una lista de los archivos que no se desea copiar.

Como sería el comando FileCopy(Pchar(Source),Pchar(Destination),false),????

Saludos

[Khronos]

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:


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 :D:D

Salu2