Datei verschieben/kopieren

[thomasdrewermann]

Kann mir jemand ein Code-Beispiel Posten, mit dem man eine Datei verschieben/kopieren kann?

Wäre echt nett :-)

MFG
Thomas

[Luckie]

Code zum Löschen:

Code:

uses ShellAPI;  

function DeleteFileWithUndo(  
  sFileName : string )  
    : boolean;  
var  
  fos : TSHFileOpStruct;  
begin  
  FillChar( fos, SizeOf( fos ), 0 );  
  with fos do  
  begin  
    wFunc  := FO_DELETE;  
    pFrom  := PChar( sFileName );  
    fFlags := FOF_ALLOWUNDO  
              or FOF_NOCONFIRMATION  
              or FOF_SILENT;  
  end;  
  Result := ( 0 = ShFileOperation( fos ) );  
end;

Kuck dir im PSDK mal SHFileOpStruct an und such dir die passenden Konstanten für's Verschieben und Kopieren raus.

[Christian Seehase]

Moin Zusammen,

wenn's um das verschieben einer einzigen Datei geht, kämen auch MoveFile/MoveFileEx in Frage.
Aber vorsicht: Damit kann man auch, indirekt, gesperrte Dateien überschreiben, Dateien löschen... (ggf. nach Reboot)
Eine nicht ganz ungefährliche Funktion. ;-)

[d3g]

Hallo Thomas,

zum Verschieben kannst du auch ganz einfach RenameFile() aus der SysUtils verwenden:

Code:

function MoveAFile(FromPos, ToPos: String): Boolean;
begin
  if (ToPos[Length(ToPos)] <> '\') then
    ToPos := ToPos + '\';

  Result := RenameFile(FromPos, ToPos + ExtractFileName(FromPos));
end;

MfG,
d3g

[CazperFuture]

Hallo,
Ich bin zufälli auf den Tread gekommmen, da ich mal wissen wollte wie man Datein verschiebt und ich neu hier bin.
Für alle die das interesssiert guckt euch Das mal an :coder2:

....Antwort nach so vielen Jahren...lolZZ