Discussion :

[sematimo]

Bonjour
je cherche à déplacer des fichiers d'un dd à un autre.
MoveFileEx ne fonctionnant apparemment que sur la même unité.
Merci.

[thewolf]

Bonjour.

Sous Windows, la ligne de code suivante a bien transféré le fichier :

Code :

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

RenameFile('C:\lazarus\readme.txt', 'E:\alire.txt');

Cordialement.
Christian

[sematimo]

RanameFile ne fonctionne pas pour moi, le fichier origine n'est pas supprimer.

Mais j'ai trouvé une solution avec shellapi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function MoveFile(const srcFile, destFile : string) : integer;
var
  shFOS : TShFileOpStruct;
begin
  ZeroMemory(@shFOS, SizeOf(TShFileOpStruct));
  shFOS.Wnd := Application.MainForm.Handle;
  shFOS.wFunc := FO_MOVE;
  shFOS.pFrom := PChar(srcFile + #0);
  shFOS.pTo := PChar(destFile + #0);
  shFOS.fFlags := FOF_NOCONFIRMMKDIR;
  result:=SHFileOperation(shFOS);
end;