Discussion :

[Mickey.jet]

Bonjour
Je cherche a faire une copie d'un répertoire (et de tout ses fichiers) et je n'y arrive pas.
Je suis allé dans la FAQ et j'ai vu qu'il fallait utiliser CopyFolder mais delphi ne le reconnait pas...
Comment dois je faire y a t il autre chose que CopyFolder?



ps: j'ai rajouté la clause shellAPI

[karami]

Bien sur!! c'est une foction crée sur la faq :
voici la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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;

et voici le test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if CopyFolder('d:\Repertoire01', 'c:\Repertoire02')then 
     ShowMessage('Copie effectuée avec succès') else 
     ShowMessage('Copie non effectuée');

[Mickey.jet]

Mais y a pas plus simple

[gobgob]

Bonsoir,

En un peu moins de termes chinois, tu peut regarder dans la faq le sujet concernant le listage de repertoires. Cela prend 3 ou 4 lignes.
Il faudra avoir créé au préalable le dossier racine.
Puis pour chaque entité listée, la copier (si c est un fichier), ou créer un dossier si l'entité listée est un dossier.

PS: regarder SelectDirectory dans Dialogs et FindFirst, Findnext et Findclose de Filectrl.

[Gaadek]

Tu paux aussi regarder du coté des API windows, en particulier SHFileOperation