Discussion :

[byc001]

bonjour à tous

je n'arrive pas à copier des fichiers.

dans une procédure de sauvegarde, j'arrive à copier les fichiers d'un répertoire donné vers la currentdirectory

Mais là je suis perdu, je pense avoir fait la même chose mais cela ne fonctionne pas.

combobox1 affiche des noms.

Si le fichier est présent, il me dit 'le fichier est déjà sur le disque' sinon il me dit que le fichier a été copié.
Mais pas de fichier copié!! (perdu!! Essaie encore)

Pouvez vous, s'il vous plait, m'aider et me dire où se trouve mon erreur

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
 
procedure TForm1.CopierRomClick(Sender: TObject);
  var
    Chemin1 : string;
    Chemin2 : string;
    Fichier : string;
  begin
    Chemin1 := IncludeTrailingPathDelimiter(AfficheRep1.Text);
    Chemin2 := IncludeTrailingPathDelimiter(AfficheRep2.Text);
    if combobox1.ItemIndex =-1
    then
      exit
    else
      Fichier := combobox1.Items[combobox1.Itemindex] +'.doc';
      if FileExists (chemin1 + ExtractFilename(Fichier))
      then
        begin
          showmessage ('le fichier est déjà sur le disque');
        end
      else
        begin
          copyfile ( pchar(chemin2 + ExtractFilename(Fichier)), pchar(Chemin1 + ExtractFileName(Fichier)),true);
          showmessage ('Le fichier a été copié sur le disque');
        end;
 
  end;

[philnext]

Je te conseille :
1/ de vérifier si CopyFile a bien fonctionné, CopyFile étant une fonction c'est facile.
2/ Si ça a fonctionné, affiche le nom complet de ton fichier cible dans ton showMessage : tu verras ainsi si tout s'est bien passé.

Code :

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

1
2
3
4
if copyfile ( pchar(chemin2 + ExtractFilename(Fichier)), pchar(Chemin1 + ExtractFileName(Fichier)),true) then
  showmessage ('Le fichier ' + ExpandFileName(Chemin1 + ExtractFileName(Fichier)) + ' a été copié sur le disque')
else
  showmessage ('pb de copie du fichier vers ' + ExpandFileName(Chemin1 + ExtractFileName(Fichier));

[DOLPat®]

Vérifie aussi que tes variables Chemin1 et Chemin2 contiennent bien des chemins corrects...

[ShaiLeTroll]

Question lisibilité, il est préférable d'écrire

Code :

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

1
2
3
 if combobox1.ItemIndex >= 0 then
 begin
   Fichier := combob...

au lieu de

Code :

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

1
2
3
4
5
6
 
    if combobox1.ItemIndex =-1
    then
      exit
    else 
      Fichier := combob...

D'ailleurs fait attention à ton Indentation !
le then ne doit etre à ligne, et tu décales de trop les begin\end

car ton code

Code :

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

1
2
3
4
5
6
7
8
    if combobox1.ItemIndex =-1
    then
      exit
    else
      Fichier := combobox1.Items[combobox1.Itemindex] +'.doc';
      if FileExists (chemin1 + ExtractFilename(Fichier))
      then
        ...

se comprend

Code :

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

1
2
3
4
5
6
7
8
 
    if combobox1.ItemIndex =-1 then
      exit
    else
      Fichier := combobox1.Items[combobox1.Itemindex] +'.doc';
 
    if FileExists (chemin1 + ExtractFilename(Fichier)) then
        ...

alors que tu voulais écrire je pense

Code :

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

1
2
3
4
5
6
7
8
9
 
    if combobox1.ItemIndex =-1 then
      exit
    else
    begin
      Fichier := combobox1.Items[combobox1.Itemindex] +'.doc';    
      if FileExists (chemin1 + ExtractFilename(Fichier)) then
         ...
    end;

au final, le code pourrait être

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
procedure TForm1.CopierRomClick(Sender: TObject);
var
  Chemin1 : string;
  Chemin2 : string;
  Fichier1 : string;
  Fichier2 : string;
begin
  Chemin1 := IncludeTrailingPathDelimiter(AfficheRep1.Text);
  Chemin2 := IncludeTrailingPathDelimiter(AfficheRep2.Text);
 
  if combobox1.ItemIndex >= 0 then
  begin
    Fichier1 := chemin1 + ExtractFilename(ChangeFileExt(combobox1.Items[combobox1.Itemindex], '.doc'));
    Fichier2 := chemin2 + ExtractFilename(ChangeFileExt(combobox1.Items[combobox1.Itemindex], '.doc'));
 
    if CopyFile ( PChar(Fichier2), PChar(Fichier1), True) then
      ShowMessage('Le fichier ' + ExpandFileName(Fichier1) + ' a été copié sur le disque')
    else
      ShowMessage('pb de copie du fichier vers ' + ExpandFileName(Fichier1) + ' -> ' + SysErrorMessage(GetLastError()));
  end;

[edam]

aussi les droit,si tu n'est pas administrateur

[byc001]

Un grand merci à DolPat : en effet ma variable chemin1 était fausse
Je devais être fatigué

De même un grand merci à ShaiLeTroll : pour toutes ses explications, ses correctifs et ses astuces qui me permettent d'avancer et d'apprendre


Enfin un grand merci à tous pour vos réponses