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;
Partager