Impossible de renommer un fichier
Bonjour à toutes et à tous,
Reprenant une à une mes anciennes applications compilées sous win32 et lazarus 1.6.4, je tombe sur l'os suivant : "RenameFile" refuse de s'exécuter bien que le fichier existe.
Code:
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
35
| procedure EnrgFchKMZ;
var
i: Integer;
NomFch: String;
begin
try
SetCurrentDir(DirDst);
with Base.Zipper do
begin
NomFch:= DirDst+ChangeFileExt(ImgSrc, '.zip');
FileName:= NomFch;
AddFiles('doc.kml', faArchive);
for i:= 0 to High(InfosKML) do
AddFiles(InfosKML[i].Icon, faArchive);
Save;
end;
if RenameFile(NomFch, ChangeFileExt(NomFch, '.kmz')) then
begin
for i:= 0 to High(InfosKML) do
DeleteFile(InfosKML[i].Icon);
DeleteFile('doc.kml');
RemoveDir('files');
Screen.Cursor:= crDefault;
Base.ProgressConv.Position:= 0;
MessageDlg(' Le fichier .KML a été correctement réalisé.'
, mtInformation, [mbOk], 0);
end;
except
Screen.Cursor:= crDefault;
Base.ProgressConv.Position:= 0;
MessageDlg(' Le fichier .KML n''a pas pu être correctement réalisé.'
, mtError, [mbOk], 0);
end;
end; |
Des idées.
Cordialement.
Pierre.
