Busqueda de archivos especificos

[ecfisa]

Hola gdIrinfo.

Empezado por gdlrinfo

Hola muchachos recuerdo cuando me dieron una mano con esto ahora tengo una duda asi como se excluyen se pude hacer que en vez de excluir incluya ? gracias como siempre !!!

Solo hay que cambiar la condición de retorno:

Código Delphi [-]
...
function TCopyAllFiles.IsBeCopied(FileName: string): Boolean;
var
  i: Integer;
  Name: string;
begin
  Result := False; // (antes True); 
  if FExclude.Count > 0 then
    Name := UpperCase(ChangeFileExt(ExtractFileName(FileName), ''));
    for i := 0 to FExclude.Count-1 do
      if AnsiPos(UpperCase(FExclude[i]), Name) <> 0 then
      begin
        Result := True;  // (antes False)
        Exit;
      end;
end;
...

Saludos