Kann man auch Ordner kopieren???

[maximi]

Hallo!
Man kann ja mit CopyFile() Dateien kopieren, gibts denn auch etwas, womit man Ordner kopieren kann???

Max

[sakura]

Ja, gibt es :-)

http://www.delphipraxis.net/internal...ect.php?t=1451

...:cat:...

[maximi]

Vielleicht ist das( http://www.delphipraxis.net/topic145...rationen+mit+s ... ation.html) ja eine super Erklärung für mein Problem, aber ich versteh es einfach nicht.

[maximi]

Hat irgendjemand denn noch ne Lösung für mein Problem?

[Matze]

Schau dir doch Sakura's Link an! :twisted:

[sakura]

So, ich habe das Problem mal ergänzt und einen weiteren Beitrag angehangen, der sollte helfen ;-)

http://www.delphipraxis.net/internal...?p=68850#68850

...:cat:...

[maximi]

So ich hab jetzt mal ein Code erstellt, aber mit dem kopieren klappts immer noch nicht!!

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}





procedure TForm1.Button1Click(Sender: TObject);
 var
  FromPath, ToPath: WideString;
  SHFileOpStruct: TSHFileOpStruct;
  aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString;
    Flags: FILEOP_FLAGS;
begin
  FromPath := 'c:\asd.jpg'#0#0;
  ToPath := 'e:\asd.jpg'#0#0;
  with SHFileOpStruct do
  begin
    Wnd := 0; 
    wFunc := aOperation;
    pFrom := PAnsiChar(FromPath); 
    if ToPath <> '' then
    begin 
      pTo := PAnsiChar(ToPath) 
    end else begin // target available 
      pTo := nil;
    end; // target not available
    fFlags := Flags; 
  end; // structure 


end;

end.

Max

[sakura]

Da fehlt die letzte, aber alles entscheidene Zeile :mrgreen:

Delphi-Quellcode:

if SHFileOperationA(SHFileOpStruct); = 0 then
  ShowMessage('ja')
else
  ShowMessage('nö');

...:cat:...

[sakura]

Hier mal ein Beispiel-ZIP.

Der Ordner "C:\Temp\Chart" wird nach "E:\" kopiert.

...:cat:...

[seno]

ich habe es nun alles am laufen... doch es gibt noch eine kleine feinheit.. kann man es auch irgendwie machen, dass, wenn etwas kopiert wird, dies nicht im fenster angezeigt wird, sondern im hintergrund kopiert wird?
hoffe ihr könnt mir helfen ;)

vielen dank im voraus

mfg
seno