Tfileop/textfileop, composant visuel pour copier, deplacer, effacer les fichiers/repertoires


Description

TFileOp est la classe de base de TExtFileOp.

TFileOp permet une manipulation facile des fichiers/repertoires, basé sur la fonction SHFileOperation de l'unité ShellApi.
Copier, Deplacer, Effacer et Renomer les fichiers ou des repertoires et leurs sous-repertoires ne serat plus un probleme et
vous perdrez moins de temps a developper ce genre de routines.

Vous pouvez installer ExtFileOp via l'installation de composant de delphi pour voir apparaitre la classe TExtFileOp dans la palette
Extend Delphi.
ou l'utiliser en standalone dans vos projets en invalidant la directive de compilation {$DEFINE RegTExtFileOp}.

vous avez egalement accés a 4 fonctions rapide qui se chargeront de créer et liberer un composant TFileOp,
ces fonctions sont :

FastFileOp, FastCopy, FastMove et FastDelete.

vous devez preciser quelques parametres a ces fonctions tel que la fiche principale, la liste des fichiers (TStrings), le repertoire de destination,
les options ...

l'utilisation du composant TFileOp / TExtFileOp est simple, deposez le composant (TExtFileOp) sur votre fiche principale ou créer le dynamiquement (TFileOp) definissez les parametres, la listes des fichiers ect et appelez tout simplement la fonction "Execute" du composant.
Des evenements sont egalement present pour suivre chaque etapes de la fonction "execute".

Source / Exemple :


{exemple d'utilisation en dynamique }

procedure TForm1.Button1Click(Sender : TObject);
begin
  with TFileOp.Create(Self) do
       try
         Files.Assign(OpenDialog1.Files);
         Destination   := Edit1.Text;
         FileOperation := fcCopy;
         Title         := 'Copie des fichiers';
         Execute;
       finally
         Free;
       end;
end;

{ ou avec les fonctions Fast*** }

procedure TForm1.Button1Click(Sender : TObject);
begin
  FastCopy(Self, OpenDialog1.Files, Edit1.Text);
end;

Conclusion :


version final release 1, commentée.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.