Busqueda de archivos especificos

[gdlrinfo]

[quote=ecfisa;482899]

Hola ecfisa te cuento que probé y funciona muy bien el único problema que hay es que no me deja poner todas las frases que quiero discriminar por ejemplo no quiero que copie nada que contenga CAC - CAM - RIB pero en el edit solo me deja poner uno ejemplo el CAC y si no lo copia la idea es poner todas las siglas juntas así no copia ninguno de esos archivos, pero la verdad que poniendo de a uno anda muy bien pero la idea es poner todas las siglas que no se quieren copiar desde ya como siempre gracias por tu ayuda

[ecfisa]

Hola gdLrinfo.
[quote=gdlrinfo;482917]

Empezado por ecfisa

Hola ecfisa te cuento que probé y funciona muy bien el único problema que hay es que no me deja poner todas las frases que quiero discriminar por ejemplo no quiero que copie nada que contenga CAC - CAM - RIB pero en el edit solo me deja poner uno ejemplo el CAC y si no lo copia la idea es poner todas las siglas juntas así no copia ninguno de esos archivos, pero la verdad que poniendo de a uno anda muy bien pero la idea es poner todas las siglas que no se quieren copiar desde ya como siempre gracias por tu ayuda

Permite poner la cantidad de monemas que deses separados por punto y coma ( ; ) por ejemplo:

CAC;CAM;RIB;Sam;eno;ico;uVa;...

Los espacios entre punto y coma y monema serán considerados

Saludos

[ecfisa]

Hola gdlrinfo.

Me quedé pensando que quizá te resulte mejor cotejar con el código fuente, así que te lo adjunto.

Es la versión para Delphi 7, así que no olvides reemplazar en la unidad uCopyAll todas las ocurrencias de PAnsiChar por PWideChar (Search->Replace).

Saludos

[gdlrinfo]

Chicos la verdad estoy muy agradecido por su ayuda, los foros funcionan gracias a personas como ustedes que se preocupan y nos ayudan a quienes somos novatos, a salir adelante con nuestros proyectos gracias por todo, ni bien arme todo estaré escribiendo nuevamente y agradecido por su apoyo es bueno ayudar sin pedir nada a cambio eso hace la grandeza de las personas muchas gracias !!!!!

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

[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

[gdlrinfo]

Geniallll gracias nuevamente!!! Atte. Gonzalo

[gdlrinfo]

[quote=ecfisa;499607] [quote=ecfisa]

Perdon mi ignorancia pero no encuentro esto que me decis Aca---

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TCopyFiles = class(TThread)
  private
    DirSource, DirTarget, FileExt, FileExtNew : String;
    FilesExcluded : TStringList;
    MsgApp : String;
    IFile,FFile : LongWord;
  protected
    procedure SearchFiles(DirSource, DirTarget, FileExt : String; var
                          FileList : TStringList;
                          FilesExcluded : TStringList
                         );
    constructor Create(CreateSuspended : Boolean);
    procedure Execute; override;
    procedure MsgCopy;
    procedure MsgEnd;
  end;

var
  Form1: TForm1;
  CopyFiles : TCopyFiles;
  CopyFilesThread : THandle = 0;

implementation

{$R *.dfm}

// Constructor de la clase TCopyFiles
constructor TCopyFiles.Create(CreateSuspended : Boolean);
begin
   inherited;
   FilesExcluded := TStringList.Create;
end;

// Selecciona los archivos a ser copiados del directorio fuente al destino de forma recursiva
procedure TCopyFiles.SearchFiles(DirSource, DirTarget, FileExt : String;
                                 var FileList : TStringList;
                                 FilesExcluded : TStringList
                                );
var
   SR : TSearchRec;
   i : Integer;
   ExcludedFile : Boolean;

begin

   DirSource := IncludeTrailingPathDelimiter(DirSource);
   DirTarget := IncludeTrailingPathDelimiter(DirTarget);

   if (not DirectoryExists(DirSource)) or (not DirectoryExists(DirTarget)) then
      Exit;

   if FindFirst(DirSource + '*.*', faAnyFile, SR) = 0 then
   repeat
      if ((SR.Attr and fadirectory) = fadirectory) then
      begin
         if(SR.Name <> '.') and (SR.Name <> '..') then
            SearchFiles(DirSource + SR.Name, DirTarget, FileExt, FileList, FilesExcluded);
      end
      else
      begin
         ExcludedFile := False;

         for i := 0 to FilesExcluded.Count - 1 do
            if Pos(LowerCase(FilesExcluded.Strings[i]), LowerCase(SR.Name)) > 0 then
            begin
               ExcludedFile := True;
               Break;
            end;

         if ExcludedFile then Continue;

         if FileExt = EmptyStr then
            FileList.Add(DirSource + SR.Name)
         else
         if LowerCase(ExtractFileExt(SR.Name)) = LowerCase(FileExt) then
            FileList.Add(DirSource + SR.Name);
      end;
   until FindNext(SR) <> 0;

   FindClose(SR);

end;

// Ejecuta el hilo de copia de archivos
procedure TCopyFiles.Execute;
var
   FileList : TStringList;
   i : Integer;
   FromFileName, ToFileName : String;
   AuxFileName, AuxFileExt : String;
   CountFile : Integer;

begin

   FreeOnTerminate := True;

   FileList := TStringList.Create;

   SearchFiles(DirSource, DirTarget, FileExt, FileList, FilesExcluded);

   for i := 0 to FileList.Count - 1 do
   begin

      FromFileName := FileList.Strings[i];

      if FileExtNew <> EmptyStr then
         ToFileName := IncludeTrailingPathDelimiter(DirTarget)
                       + ChangeFileExt(ExtractFileName(FileList.Strings[i]),FileExtNew)
      else
         ToFileName := IncludeTrailingPathDelimiter(DirTarget) + ExtractFileName(FileList.Strings[i]);

      CountFile := 0;

      while True do
      begin
         if FileExists(ToFileName) then
         begin
            Inc(CountFile);
            AuxFileName := ExtractFileName(ChangeFileExt(FromFileName,''));
            AuxFileExt := ExtractFileExt(FromFileName);
            ToFileName := ExtractFilePath(ToFileName)
                          + AuxFileName
                          + '_' + IntToStr(CountFile)
                          + AuxFileExt;
         end
         else
            Break;
      end;

      IFile := i + 1;
      FFile := FileList.Count;

      Synchronize(MsgCopy);

      Copyfile(PChar(FromFileName),PChar(ToFileName),False);

   end;

   FileList.Free;
   FilesExcluded.Free;

   Synchronize(MsgEnd);

end;

// Muestra un mensaje de progreso de copia de archivos
procedure TCopyFiles.MsgCopy;
begin
   Form1.Caption := Format('Copiando %d de %d',[IFile, FFile]);
end;

// Muestra un mensaje de finalización de copia de archivos
procedure TCopyFiles.MsgEnd;
begin
   Form1.Caption := 'CopyFiles';
   MsgApp := Format('Copia Recursiva de Archivos *%s del Folder %s al Folder %s Completada',
                    [FileExt, DirSource,DirTarget]);
   Beep;
   MessageDlg(MsgApp, mtInformation, [mbOK], 0);
   CopyFilesThread := 0;
end;

// Inicia un proceso de copia recursiva de archivos desde el directorio fuente al destino
procedure TForm1.Button1Click(Sender: TObject);
var
   MsgApp : String;
   DirSource, DirTarget, FileExt, FileExtNew : String;
   FilesExcluded : TStringList;

begin

   DirSource := 'D:\HostDownload';
   DirTarget := 'D:\TestNelson-2';
   FileExt := '.rtf';
   FileExtNew := '.doc';

   // Exclusión de archivos a ser copiados (Se pueden excluir tantos como se requiera) 
   FilesExcluded := TStringList.Create;
   FilesExcluded.Add('x1'); // Excluye todos los archivos que incluyan x1 en su nombre
   FilesExcluded.Add('x2'); // Excluye todos los archivos que incluyan x2 en su nombre
   FilesExcluded.Add('x3'); // Excluye todos los archivos que incluyan x3 en su nombre

   if (CopyFilesThread = 0) then
   begin

      if (not DirectoryExists(DirSource)) or (not DirectoryExists(DirTarget)) then
      begin
         MsgApp := 'Error de I/O en Directorio Fuente o Destino';
         Beep;
         MessageDlg(MsgApp,mtInformation,[mbOK],0);
         Exit;
      end;

      CopyFiles := TCopyFiles.Create(True);
      CopyFiles.DirSource := DirSource;
      CopyFiles.DirTarget := DirTarget;
      CopyFiles.FileExt := FileExt; // CopyFiles.FileExt := '' copia todos los archivos
      CopyFiles.FileExtNew := FileExtNew; // CopyFiles.FileExtNew := '' no cambia la extensión
      CopyFiles.FilesExcluded.Assign(FilesExcluded);
      CopyFiles.Resume;
      CopyFilesThread := CopyFiles.Handle;

      FilesExcluded.Free;

   end
   else
   begin
      MsgApp := 'Hay un Proceso de Copia Activo, Favor Esperar que Finalize';
      Beep;
      MessageDlg(MsgApp,mtInformation,[mbOK],0);
      Exit;
   end;

end;

end.