Discussion :

[Vulcanos]

Bonjour à tous,

Dans la FAQ, il est expliqué comment on déplace un répertoire sous Windows.
Mais, comment fait-on pour copier un répertoire d'un CD vers un HDD, par exemple ?

Peut-on passer par un CopyFile générique, du genre :

Code :

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

1
2
 
CopyFile('d:\MonRépertoire\*.*','c:\MonRépertoire\*.*', EchecSiExiste)  ?

Merci de vos réponses.

[sjrd]

Dans le sens CD -> HDD je ne vois pas pourquoi ça ne fonctionnerait pas... As-tu essayé ?

Dans l'autre sens par contre il faut savoir graver un CD... Et ça j'ai aucune idée de comment on fait

[Laurent Dardenne]

Dans l'autre sens par contre il faut savoir graver un CD... Et ça j'ai aucune idée de comment on fait

Sous XP voir CD IMAPI :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/devio/base/interacting_with_imapi.asp

Article en Allemand
http://www.entwickler.com/itr/online_artikel/psecom,id,631,nodeid,56.html#
Source :
http://www.uaconsulting.de/de/downloads/downloads.htm

[Vulcanos]

Merci !

Je n'ai pas à copier du HDD vers le CD, ça m'évitera de réviser mon allemand !

A part ça, la copie générique ne fonctionne pas... Je vais me débrouiller autrement.

[Laurent Dardenne]

Je n'ai pas à copier du HDD vers le CD

Je l'ai indiqué au cas où.

A part ça, la copie générique ne fonctionne pas... Je vais me débrouiller autrement.

Dans la faq regarde le lien MSDN, dans cette exemple de code, les flags de SHFILEOPSTRUCT ne sont peut être pas tous approprié pour une copie *.*.

[Vulcanos]

Effectivement, la doc Microsoft précise :

typedef struct _SHFILEOPSTRUCT {
HWND hwnd;
UINT wFunc;
LPCTSTR pFrom;
LPCTSTR pTo;
FILEOP_FLAGS fFlags;
BOOL fAnyOperationsAborted;
LPVOID hNameMappings;
LPCTSTR lpszProgressTitle;
} SHFILEOPSTRUCT, *LPSHFILEOPSTRUCT;

pFrom
[..]These names must be fully qualified paths. Standard Microsoft MS-DOS wild cards, such as "*", are permitted in the file-name position [..]

fFlags
Flags that control the file operation. This member can take a combination of the following flags.
[..]
FOF_FILESONLY
Perform the operation on files only if a wildcard file name (*.*) is specified.

FOF_NORECURSION
Only operate in the local directory. Don't operate recursively into subdirectories.
[..]

Je n'ai pas testé. Avant de recevoir ta réponse, j'avais contourné le problème en appelant, depuis mon programme, un script .BAT contenant une série de XCOPY.

Il n'empêche... Je découvre la puissance de cette fonction ShFileOperation.

Merci du coup de main.

[Laurent Dardenne]

En retour peux-tu nous communiquer ton code afin de complèter la FAQ ?

[Vulcanos]

Pas de problème, mais est-ce que ça vaut le coup ?

Code Delphi :

Code :

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

1
2
3
4
5
6
7
 
ShellExecute(Application.Handle,
               'open',
               PChar(GetEnvironmentVariable('ComSpec')),
               '/C MonScript.bat',
               'c:\',
               SW_SHOW);

Le script MONSCRIPT.BAT est celui-ci :

Code :

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

1
2
3
4
5
6
7
8
 
rem---------------------------------------------------------
MD c:\Repertoire01
MD c:\Repertoire02
rem---------------------------------------------------------
XCopy d:\Repertoire01\*.* c:\Repertoire01\*.* /S
XCopy d:\Repertoire02\*.* c:\Repertoire02\*.* /S
rem---------------------------------------------------------

Avec :
c:\ --> HDD
d:\ --> Lecteur de CD

Remarque : les 2 premières lignes (création des répertoires) sont peut-être inutiles. Il me semble que XCopy est capable de les créer, mais je ne suis pas sûr.

Si tu attends un peu, je t'envoie les résultats avec la fonction ShFileOperation

A+

[Laurent Dardenne]

Salut,

Pas de problème, mais est-ce que ça vaut le coup ?

Au vu de ta demande initiale, son existence t'aurait bien aidé, n'est-il pas ?

Si tu attends un peu,

C'est ce qui caractérise l'équipe de la FAQ.

[Vulcanos]

Au vu de ta demande initiale, son existence t'aurait bien aidé, n'est-il pas ?

Certes...

Bon, je rencontre un problème en voulant tester la fonction :

Code :

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

1
2
3
 
var
  fos : SHFILEOPSTRUCT;

Là, je me récupère : "identificateur SHFILEOPSTRUCT non déclaré".
Idem pour tous les paramètres de la structure et pour la fonction elle-même, bien sûr.

Je ne pige pas... Et j'ai bien :

Code :

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

1
2
 
uses Windows

[Pedro]

Salut
SHFILEOPSTRUCT n'est pas déclaré dans l'unité Windows mais dans l'unité ShellAPI

[delphichem]

Voici une solution (utilisant SHFILEOPSTRUCT):

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
procedure CopyFolder(FromFld, ToFld: string);
var fos: TSHFileopStruct; frm, dst: PChar;
begin
  FillChar(fos, SizeOf(fos), 0);
  FromFld := Trim(FromFld);
  ToFld := Trim(ToFld);
  // il faut supprimer les antislashs de fin sinon tu auras droit a un beau message d'erreur
  if FromFld[Length(FromFld)] = '\' then
    FromFld := Copy(FromFld, 1, Length(FromFld) - 1);
 
  if ToFld[Length(ToFld)] = '\' then
    ToFld := Copy(ToFld, 1, Length(ToFld) - 1);
 
  frm := StrAlloc(Length(FromFld) + 1);
  dst := StrAlloc(Length(ToFld) + 1);
  frm := PChar(FromFld);
  dst := PChar(ToFld);
 
  // Ajout du Null de fin de chaine
  frm[Length(FromFld) + 1] := #0;
  dst[Length(ToFld) + 1] := #0;
 
  fos.Wnd := Application.MainForm.Handle;
  fos.wFunc := FO_COPY;
  fos.pFrom := frm;
  fos.pTo := dst;
  fos.fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
  fos.fAnyOperationsAborted := False;
  if (SHfileoperation(fos) = 0) then
    ShowMessage('Copie effectuée avec succès')
  else
    ShowMessage('Copie non effectuée');
end;

Voici comment tu l'utilises:

Code :

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

CopyFolder('d:\Repertoire01', 'c:\Repertoire01');

[Vulcanos]

Merci à Pedro pour le ShellApi

Merci à Delphichem pour ton code, quoique la ligne suivante puisse réserver quelques désagréements.

Code :

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

1
2
 
fos.Wnd := Application.MainForm.Handle;

Donc, le boulot étant maché, ça donne :

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
19
20
21
22
23
24
25
26
27
28
29
 
function TForm4.CopyFolder(FromFld, ToFld: string): boolean;
var fos: TSHFileopStruct; frm, dst: PChar;
begin
  FillChar(fos, SizeOf(fos), 0);
  FromFld := Trim(FromFld);
  ToFld := Trim(ToFld);
// il faut supprimer les antislashs de fin sinon tu auras droit a un beau message d'erreur
  if FromFld[Length(FromFld)] = '\' then
    FromFld := Copy(FromFld, 1, Length(FromFld) - 1);
 
  if ToFld[Length(ToFld)] = '\' then
    ToFld := Copy(ToFld, 1, Length(ToFld) - 1);
 
  frm := StrAlloc(Length(FromFld) + 1);
  dst := StrAlloc(Length(ToFld) + 1);
  frm := PChar(FromFld);
  dst := PChar(ToFld);
 
  FillChar(fos, SizeOf(fos),0);
  with fos do
  begin
    wFunc := FO_COPY;
    pFrom := PChar(frm+#0);
    pTo   := PChar(dst+#0);
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
  end;
  if ShFileOperation(fos)=0 then Result := True else Result := false;
end;

Appel à la fonction :

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');

A+

[delphichem]

Un peu plus optimal (en mixant les solutions):

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
19
20
21
22
function CopyFolder(FromFld, ToFld: string): boolean;
var fos: TSHFileopStruct;
begin
  FromFld := Trim(FromFld);
  ToFld := Trim(ToFld);
// il faut supprimer les antislashs de fin sinon tu auras droit a un beau message d'erreur
  if FromFld[Length(FromFld)] = '\' then
    FromFld := Copy(FromFld, 1, Length(FromFld) - 1);
 
  if ToFld[Length(ToFld)] = '\' then
    ToFld := Copy(ToFld, 1, Length(ToFld) - 1);
 
  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;

[edam]

je sais que c'est déjà résolu mais je veux savoir si on peut remplasser
ce code

Code :

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

1
2
if FromFld[Length(FromFld)] = '\' then 
    FromFld := Copy(FromFld, 1, Length(FromFld) - 1);

par

Code :

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

if FromFld[Length(FromFld)] = '\' then setlength(FromFld,length(FromFld)-1);

[delphichem]

Oui sans aucun problème, mais cela n'affecte pas les performance.