Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

Re: Datei verschieben und falls vorhanden überschreiben

  Alt 4. Okt 2004, 12:29
Zitat von Lupster:
Hallo Zusammen,

ich möchte ein File in einen Unterordner verschieben. Klappt mit MoveFile auch wunderbar. Ich möchte nun aber noch, dass falls das File im Unterordner schon vorhanden ist, es überschrieben wird.
Delphi-Quellcode:
if MoveFileEx(PChar(quelldatei), PChar(Zieldatei), MOVEFILE_REPLACE_EXISTING) then
   raise EWin32Error.CreateFmt('Datei %s konnte nicht nach %s umbenannt werden !', [quelldatei, Zieldatei]);
Wenn du obigen Quellcode noch in eine Procedure verpackst, dann ist die Anwendung ganz einfach und angenehm.
Andreas
  Mit Zitat antworten Zitat