Kann man auch Ordner kopieren???

[Kieni]

Hallo ...

Ich muss dieses Topic jetzt nochmal pushen. Habe mir den Quelltext mal kopiert, nur leider wird bei mir kein Ordner kopiert ...

kann mir mal einer einen Tip geben?

Code:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    cmd_start: TButton;
    procedure cmd_startClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  Function DeleteDir(DirName : string): Boolean;
  function Sh_FileCopyMove(aWND: HWND; const Source,Dest: string; DoMove: boolean;
          var IsAborted: boolean; Flags: FILEOP_FLAGS=0): Boolean;


var
  Form1: TForm1;

const
  backup_this = 'R:\';
  backup_new  = 'C:\Backup-FSS';
  backup_old  = 'C:\Backup-FSS(Old)';


implementation

{$R *.dfm}

procedure TForm1.cmd_startClick(Sender: TObject);

var
  IsAborted: boolean;

begin

// rd /s /q Backup-FSS(Old)
if DirectoryExists(backup_old) then DeleteDir(backup_old);

// ren Backup-FSS Backup-FSS(Old)
if DirectoryExists(backup_new) then MoveFile(backup_old, backup_new);

// md Backup-FSS
// xcopy "R:\*.*" .\Backup-FSS\ /e
Sh_FileCopyMove(Handle, backup_this, backup_new, False, IsAborted)

end;

//-----------------------------------------------------
Function DeleteDir(DirName : string): Boolean;
var
  SHFileOpStruct : TSHFileOpStruct;
  DirBuf : array [0..255] of char;
begin
  try
   Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
   FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;
   StrPCopy(DirBuf, DirName) ;
   with SHFileOpStruct do begin
    Wnd := 0;
    pFrom := @DirBuf;
    wFunc := FO_DELETE;
    fFlags := FOF_ALLOWUNDO;
    fFlags := fFlags or FOF_NOCONFIRMATION;
    fFlags := fFlags or FOF_SILENT;
   end;
    Result := (SHFileOperation(SHFileOpStruct) = 0) ;
   except
    Result := False;
  end;
end;

//-----------------------------------------------------

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;
//Flags auf 1, da ich Fehler sehen will ...
    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;

end.

Wenn ich das nun kompeliere und ausführen will kommt folgende Fehlermeldung:

Cannot Copy File: Cannot read from the source file or disk.


ich weiß einfach im Moment nicht weiter ...

Einen schönen Nikolaus an alle.

Gruß Kieni

[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