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

[Kieni]

Code:

if not Sh_FileCopyMove(Application.Handle, backup_this, backup_new, False, IsAborted) then
begin
  ShowMessage(SysErrorMessage(GetLastError));
end
else
  ShowMessage('Funktioniert');
end;

Also hier bringt er mir die Fehlermeldung: "The Hadle is invalid"

hab es schon geändert nach Application.handle...

hmm

[Luckie]

Delphi-Quellcode:

procedure Sh_FileCopyMove(aWND: HWND; const Source,Dest: string; DoMove: boolean;
 var IsAborted: boolean; Flags: FILEOP_FLAGS=0);
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;
  if not (SHFileOperation(fos) = 0) then
    RaiseLastOSError;
  IsAborted:= fos.fAnyOperationsAborted;
end;

Delphi-Quellcode:

try
  Sh_FileCopyMove(...);
except
  on E: Exception do
    ShowMessage(E.Message);
end;

[DeddyH]

procedure -> function

[Luckie]

Auf dem keinen Netbook Bildschirm habe ich einfach keine Übersicht.

[Kieni]

Ich bedanke mich schonmal bei euch!

folgender Fehler:

Zitat:

Systemfehler. Code: 6
The handle is invalid

Welches handle? Welches soll ich denn da übergeben ?

[Luckie]

Na das vom Fenster: Form1.Handle .

[Kieni]

hmm...
das hatte ich schon porbiert...
Wenn ich dann den Button drücke, kommt zuerst:

Zitat:

Cannot copy file: Cannor read from the source file or disk.

Dannach wieder:

Zitat:

Systemfehler. Code: 6
The handle is invalid

Der Aufruf der Funktion:

Code:

try
  Sh_FileCopyMove(Form1.Handle, backup_this, backup_new, False, IsAborted);
except
  on E: Exception do
    ShowMessage(E.Message);
end;

irgendwie läuft das alles nicht, und ich steh momentan voll auf dem Schlauch. Kann es etwas damit zu tun haben, dass backup_this ein Netzlaufwerk (R:) ist?

Gruß Kieni