Kann man auch Ordner kopieren???

[DeddyH]

Zitat:

if DirectoryExists(backup_new) then MoveFile(backup_old, backup_new);

Hast Du hier evtl. die Parameter verwechselt? backup_old ist ja gelöscht, wenn ich das richtig sehe.

[himitsu]

Delphi-Quellcode:

except
  Result := False;
end;

Abgesehn davon, daß man sowas eigentlich nicht macht.
SHFileOperation wirft keine Exceptions ... jedenfalls nicht, wenn nichts extrem schlimmes passiert ist und sowas sollte man nicht einfach so verdecken/ignorieren.

SHFileOperation hat ja auch ein Ergebnis.
Wie wäre es, wenn du von mal die Results von MoveFile und Sh_FileCopyMove auswertest und bei einem False über GetLastError / SysErrorMessage(GetLastError) den geneueren Fehlergrund nachsiehst?

[Kieni]

@DeddyH

Code:

if DirectoryExists(backup_new) then MoveFile(backup_old, backup_new);

stimmt ... es muss so sein:

Code:

if DirectoryExists(backup_new) then MoveFile(backup_new, backup_old);

thanks...

@himitsu
noch eine Frage: Wie/Wo kann ich den letzte Error auswerten lassen? In dieser Funktion?

Diese Funktion sollte einfach nur diesen Befehl ausführen:

Code:

// md Backup-FSS
// xcopy "R:\*.*" .\Backup-FSS\ /e

Code:

function Sh_FileCopyMove(aWND: HWND; const Source,Dest: string; DoMove: boolean;
 var IsAborted: boolean; Flags: FILEOP_FLAGS=0): Boolean;
var
  fos : TSHFileOpStruct;
  s,d: String;
begin
  Result:= False;
  if (Source='') or (Dest='') then exit;
  s:= Source;
  d:= Dest;
  if Source[Length(S)]<> #0 then S:=S+ #0;
  if D[Length(D)]<> #0 then D:=D+ #0;
  ZeroMemory(@fos,SizeOf(fos));
  with fos do
  begin
    Wnd:= aWND;
    If DoMove then wFunc:= FO_Move
    else wFunc:= FO_COPY;
    if Flags=1 then fFlags:=FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_SILENT or FOF_NOERRORUI
    else fFlags:=Flags;
    fAnyOperationsAborted:= IsAborted;
    pFrom:=PChar(S);
    pTo:=PChar(D);
  end;
  Result:= SHFileOperation(fos)=0;
  IsAborted:= fos.fAnyOperationsAborted;
end;

es ist zum heulen