HERIBERT | Bonjour à tous 
Le code :
Code :
- Var
- F_Source, F_Dest , Rep_Temp_Edition, F_Pointe // (ds un ListBox) : string;
- Err : integer;
- Retour_Copie : boolean;
- F_Source := Rep_Base_Articles + '\' + ExtractFileName(F_Pointe);
- F_Dest := Rep_Temp_Edition + '\' + ExtractFileName(F_Source);
- ForceDirectories(Rep_Temp_Edition);
- Retour_Copie := CopyFile(PChar(F_Source), PChar(F_Dest), False);
- // plusieurs lignes de code n'affectant pas les variables requises pour la copie
- if Retour_Copie = False then
- begin
- Err := GetLastError;
- MessageDlg( 'ERREUR EN COPIE DU FICHIER : ' + F_Source +
- #13+#10 + F_Dest + ' ERREUR N° : ' + IntToStr(Err), mtWarning, [mbOK], 0);
- F_Pointe := '';
- Form1.ListBox1.SetFocus;
- Exit;
- end
- 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  ?
Message édité par HERIBERT le 19-09-2015 à 09:59:56
|
