CopyFolderRésolu

Question

Bonjour, 

J'ai créé une FUNCTION me permettant de copier l'intégralité de mes fichiers présents dans un dossier et d'en faire une copie dans un autre fichier.
Ma question est la suivante :
    - Je ne sais pas comment faire pour ne pas sélectionner les fichiers qui ne m’intéressent pas. (Fichiers volumineux qui n'auront pas d’intérêt dans la suite de mon application mais qui sont présents dans le dossier et qui ralentissent l'exécution du CopyFolder)

Voici le code que j'ai actuellement, et qui marche très bien.

//Copie de fichiersFUNCTION CopyFolder(FromFld, ToFld: string): boolean;VAR  fos: TSHFileopStruct;BEGIN// il faut supprimer les antislashs de fin sinon vous aurez droit à un message d'erreur  FromFld := ExcludeTrailingPathDelimiter(Trim(FromFld));  ToFld := ExcludeTrailingPathDelimiter(Trim(ToFld));  FillChar(fos, SizeOf(fos),0);  WITH fos DO  BEGIN    wFunc := FO_COPY;    pFrom := PChar(FromFld+#0);    pTo   := PChar(ToFld+#0);    fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;  END;  Result := ShFileOperation(fos)=0;END;PROCEDURE Traitement.RecuperationDossier;BEGIN  CopyFolder('\Sertf1b\c\DatasBA', 'C:\Users\Administrateur\Desktop\Test');END;

Je suis ouvert à toute proposition, même si je dois changer ma fonction.

Cordialement.

Cirec · Answer

Salut

 regarde ce code il utilise la même méthode que toi mais en beaucoup plus complet ce qui inclus le choix des fichiers à copier/déplacer/supprimer ... 
La prise en main est simplifié ... tu devrais t'en sortir avec ;)

vico8000 · Answer

Merci pour l'indication.

J'arrive bien à récupérer et déplacer à l'aide de la classe de Foxi.
Je fais exactement pareil que le code si dessus. 
Je ne vois à l'inverse, pas comment utiliser la lib pour ne pas récupérer les fichiers commençant par MES, par exemple, présents dans le dossier.

J'ai également une question suite au test fait à l'aide de la librairie.
Lors du copier/coller des fichiers, la boîte de dialogue inscrivant le temps restant s'affiche. N'y a t'il pas moyen de ne pas l'afficher ?

Lorsque nous voulons envoyer des fichiers dans un dossier mais que ces fichiers en question existent, une boîte de dialogue nous demande si nous voulons les remplacer. N'est-il pas possible de le mettre à oui par défaut et de ne pas avoir l'affichage de cette boîte de dialogue ?

L'idée à terme est d'avoir cette copie en automatique toute les heures . (sans personne pour valider les boîtes de dialogue)

Cordialement.

Cirec · Answer

oh là ... 
pas la peine de faire une usine à gaz 

comme je l'ai déjà dit plus haut, tu as tout ce qu'il te faut et l'utilisation du code de f0xi est juste pour simplifier encore un peu plus.

***sur une Fiche: 2 TEdit (edt_From & edt_To) 1 TButton (btn_Copy)

  ... 
implementation

{$R *.dfm}
uses
  ExtFileOp;

procedure TUDemoMain.btn_CopyClick(Sender: TObject);
var
  aSL: TStringList;
begin
  aSL := TStringList.Create;
  try
    aSL.Delimiter := ';';
    aSL.DelimitedText := edt_From.Text;
    FastCopy(Self, aSL, edt_To.Text);
  finally
    aSL.Free;
  end;
end;

lance l'application.
dans edt_From  tu mets: (par Ex.)
"C:\Program Files\Mon dossier\d*.*";"C:\Program Files\Mon dossier\c*.*"
et dans edt_To:
c:\TempCopy\d\

et appuyer sur le bouton ... ceci copiera tous les fichiers commençant par D et par C dans c:\TempCopy\d\

surtout ne pas oublier les guillemets et le point-virgule entre chaque mask de recherche dans edt_From


voilà rien de plus ... rien de moins ^^

Cirec · Answer

re,
content que ça te plaise ;)

et pour répondre à la question suivante ... c'est oui, on peut contrôler tous les comportements.
la méthode FastCopy accepte un quatrième paramètre (facultatif) par le quel tu indiques quel comportement adopter face à tel situation.

en clair tu remplaces :
    FastCopy(Self, aSL, edt_To.Text);

par:
    FastCopy(Self, aSL, edt_To.Text, [ffNoConfirmation, ffAllowUndo, ffNoConfirmMkDir]);


tu trouveras la liste des options disponible en début de l'unité de f0xi

f0xi · Answer

Content de voir que ExFileOp est utilisée en 2016 :) 

Pour ce qui est des fenètres de confirmation, progression, ça c'est windows qui gère puisque SHFileOperation c'est du pur windows.
Il y a des paramètres pour éviter les confirmations (comme dit par Cirec) mais on ne peut pas tout masquer (de mémoire).

Sinon, vous pouvez regarder ma source "Depoc" qui est basé sur SearchRec/Find (à l'ancienne donc), largement commenté pour bien comprendre chaque choses.

CopyFolder

5 réponses

Votre réponse

Discussions similaires