Comment voir les fichiers que l'on est en train de copîer

Question

Bonjour,

Je suis en train de faire un petit programme de sauvegarde qui utilise la fonction CopyFolder.

Mon problème c'est que parfois j'ai des erreurs de copie parmi les fichiers se trouvant dans mes répertoires en cours de copie.

Aussi, 'ai besoin de savoir quel fichier je suis en train de copier pour pouvoir faire des logs.

Auriez-vous svp une idée ?

Merci par avance.

Voici la fonction utilisée (peut-être faut-il en utiliser une autre) :

function 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;

denisbertin · Answer

Visiblement vous programmer avec le langage Pascal

Voici ce que j'ai écrit pour faire une copie de fichier

function File_Copy(entre,sortie:string):boolean;
	const taille_buf=100000;
	type tbuf=array[1..taille_buf] of Char;
	var FromF, ToF: file;
		 NumRead, NumWritten:Integer;
		 Buf:tbuf;
	begin
  {$i+}
	File_Copy:=False;
	Assign(FromF, entre);	{ Ouvre entrée }
	Reset(FromF, 1);		 	{ Taille Record = 1 }
	Assign(ToF, sortie);	{ Ouvre sortie }
	Rewrite(ToF, 1);		 	{ Taille Record = 1 }
	repeat
		BlockRead(FromF, Buf, SizeOf(TBuf), NumRead);
		BlockWrite(ToF, Buf, NumRead, NumWritten);
	until (NumRead = 0) or (NumWritten <> NumRead);
	Close(FromF);
	Close(ToF);
	File_Copy:=NumRead = 0;
  {$i-}
	end; {File_Copy}

dubois77 · Answer

Salut
à priori tu as à chaque fois le nom du fichier dans ta variable FromFld, donc tu peux en faire ce que tu veux au moment ou tu lance cette procédure (showmessage ....)

sp40 · Answer

oui M. Dubois, c'est un peu plus compliqué que ça... J'ai bataillé un peu dessus, mais tout est géré par windows... Essaie de fouiller du côté de la propriété lpszProgressTitle du TSHFileopStruct en ajoutant FOF_SIMPLEPROGRESS au FlagsOptions. J'ai essayé mais sans succès... :(   Visiblement, la propriété hNameMappings ne s'intéresse qu'aux collisions.

@denisbertin : J'ai une erreur chez moi avec ton code "EInOutError : Accès au fichier refusé" sur le Reset(FromF, 1); (De plus, tu ne réponds pas à la question "Aussi, 'ai besoin de savoir quel fichier je suis en train de copier pour pouvoir faire des logs", mais bon, ça c'est autre chose...)

@tous les deux : utilisez les balises de codes please !

cs_yanb · Answer

Salut,
en utilisant la fonction fichier par fichier au lieu du répertoire, tu sauras quel fichier et en cours de copie et tu auras la cause de  l'erreur si ça plante.
Sinon faire une fonction de copie de fichier et de répertoire et il y en a sur le site...
@+
--

vieuxpere · Answer

Je vais investiguer sur TSHFileopStruct sinon je ferais ceci avec des copyfiles.
Merci à vous.

f0xi · Answer

Regarde ici :
http://codes-sources.commentcamarche.net/source/41219-tfileop-textfileop-composant-visuel-pour-copier-deplacer-effacer-les-fichiers-repertoires

sp40 · Answer

Salut f0xi,
Je viens de jeter un coup d'oeil à ta source, et je n'arrive pas à la faire fonctionner. Le composant est bien installé (XE2), pas de fuites mémoire, pas de message d'erreur, mais pas de copie non plus... :(
Sûrement que je m'en sers mal. Dis moi ce que t'en penses : 

procedure TForm4.Button1Click(Sender: TObject);
var
   i : Integer;
begin
     with ExtFileOp1 do begin
          for i := 0 to FileListBox1.Count - 1 do begin
              if FileListBox1.Selected[i]
                 then Files.Add(DirectoryListBox1.Directory +'\'+ FileListBox1.Items[i]);
          end;
          Destination := 'D:Users\Simon\Documents\RAD Studio\Projets\Tests\copy f0xi\Test';
          if Execute
             then ShowMessage('ok'); // Pas de message 'ok'...   :(
     end;
end;

 
Simon

Comment voir les fichiers que l'on est en train de copîer

7 réponses

Votre réponse

Discussions similaires