Erreur 183 sur un CopyFile()

Erreur 183 sur un CopyFile() - Delphi/Pascal - Programmation

Marsh Posté le 19-09-2015 à 09:59:24    

Bonjour à tous :)
 
Le code :

Code :
  1. Var
  2.       F_Source, F_Dest , Rep_Temp_Edition, F_Pointe // (ds un ListBox) : string;   
  3.       Err : integer; 
  4.       Retour_Copie : boolean;
  6.       F_Source := Rep_Base_Articles + '\' + ExtractFileName(F_Pointe);
  7.       F_Dest := Rep_Temp_Edition + '\' + ExtractFileName(F_Source);
  8.       ForceDirectories(Rep_Temp_Edition);
  9.       Retour_Copie := CopyFile(PChar(F_Source), PChar(F_Dest), False);
  11.       // plusieurs lignes de code n'affectant pas les variables requises pour la copie
  13.       if Retour_Copie = False then
  14.         begin
  15.           Err := GetLastError;
  16.           MessageDlg( 'ERREUR EN COPIE DU FICHIER : ' + F_Source +
  17.                       #13+#10 + F_Dest + ' ERREUR N° : ' + IntToStr(Err), mtWarning, [mbOK], 0);
  18.           F_Pointe := '';
  19.           Form1.ListBox1.SetFocus;
  20.           Exit;
  21.         end
  22.       Else Nom_F_A_Editer := F_Source;


 
Err 183 : "Impossible de un fichier un fichier déjà existant".
 
Qu'est-ce que ça vient fiche ici ? CopyFile() s'en moque et, de toute façon, j'ai lui passé le paramètre False. Même s'il existait déjà, et vu qu'il n'est pas locké, pourquoi cette erreur 183 ?  
 
Ca vous parle :heink: ?


Message édité par HERIBERT le 19-09-2015 à 09:59:56
Reply

Marsh Posté le 19-09-2015 à 09:59:24   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed