Verzeichnisse kopieren

[cchris]

Hi!

Ich will in meinem Programm ein den gasamten Inhalt eines Verzeichnisses samt Unterverzeichnissen in ein Anderes Verzeichnis kopieren, gibt es da eine Fertige funktion dafür oder soll ich mit shellexecute Dosscomandos nehmen oder wie geht das?

Danke im Vorraus,

Christian

[mirage228]

Hi,

schau dir mal SHFileOperation an ;)

Edit: Bzw. das hier: http://www.delphipraxis.net/internal...hfileoperation

mfG
mirage228

[cchris]

Ich hab das jetzt so geändert:

Der Ordner Saves ist vorhanden.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
s:=inputbox('Namen eingeben...','','');
if not CreateDir(edit1.Text+s) then raise exception.Create(edit1.Text+s+' can''t be created.') else
begin
Listbox2.Items[1]:=Edit1.Text+'Saves\*.*';
Listbox3.Items[1]:=Edit1.Text+s;
DoFileWork(Self.Handle, FO_COPY,Listbox2.Items, Listbox3.Items, FOF_NOCONFIRMATION);
Listbox1.Items.Add(s);
end;
end;

Die Funktion hab ich übernommen:

Delphi-Quellcode:

function DoFileWork(
  aWnd: HWND; aOperation: UINT; aFrom, aTo: TStrings; Flags: FILEOP_FLAGS
  ): Integer;
var
  I: Integer;
  FromPath, ToPath: string;
  SHFileOpStruct: TSHFileOpStruct;
begin
  FromPath := '';
  for I := 0 to aFrom.Count - 1 do
    FromPath := FromPath + aFrom.Strings[I] + #0;
  FromPath := FromPath + #0;

  if Assigned(aTo) then 
  begin
    ToPath := ''; 
    for I := 0 to aTo.Count - 1 do
      ToPath := ToPath + aTo.Strings[I] + #0;
    ToPath := ToPath + #0; 
    if aTo.Count > 0 then 
      Flags := Flags or FOF_MULTIDESTFILES; 
  end;

  with SHFileOpStruct do 
  begin 
    Wnd := aWnd;
    wFunc := aOperation; 
    pFrom := PChar(FromPath); 
    if Assigned(aTo) then 
    begin
      pTo := PChar(ToPath) 
    end else begin // target available 
      pTo := nil; 
    end; // target not available
    fFlags := aFlags;
  end; // structure 
  Result := SHFileOperation(SHFileOpStruct); 
end;

Jetzt kommt immer wenn ich versuche das zu kompiliren die Meldung aflags unbekannter Bezeichner. Wenn ich das in Flags ändere kommt dann beim Kopieren: tertz ( oder so ähnlich) kann nicht erstellt werden, obwohl es weder in der Quelle noch im ziel ein Verzeichnis mit dem Namen gibt, noch ne Datei, was maxche ich falsch.

[Luckie]

In deiner umgebauten Funktion gibt es weder die Variable fFlags noch aFlags. :roll:

[mirage228]

Zitat:

Zitat von Luckie

In deiner umgebauten Funktion gibt es weder die Variable fFlags noch aFlags. :roll:

fFlags gehört doch zu SHFileOpStruct :roll:

mfG
mirage228

[Luckie]

Mist, ich habe das with übersehen. :roll: Nun ja, aber der Paramter heißt Flags und nicht aFlags.