Problem beim Verzeichniskopieren

[MarcusB]

Hallo,

ich habe mal wieder ein Problem

Ich möchte mit einem kleinen Programm ein paar Verzeichnisse von meiner lokalen Festplatte auf eine USB-Festplatte kopieren.

Dazu verwende ich folgenden Code (vereinfacht, für bessere Übersicht):

Delphi-Quellcode:

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  BackupPfad: String;
  bl: TStringList;
  i: Integer;
begin
  bl := TStringList.Create;

  //Das folgende wird normalerweise aus einer Datei ausgelesen
  bl.Add('C:\Daten\Verzeichnis_1');
  bl.Add('C:\Daten\Verzeichnis_2');
  bl.Add('C:\Daten\Verzeichnis_3');
  bl.Add('C:\Daten\Verzeichnis_4');

  BackupPfad := 'T:\Backup\'; //T: ist die USB-Festplatte

  for i := 0 to bl.Count - 1 do
  begin
    CopyDir(bl[i], BackupPfad);
  end;
end;

So, nun das Problem:

Er kopiert eigentlich alles richtig, bis auf den letzten Ordner, denn hier schmeisst er die Dateien die in diesem Ordner liegen einfach in das T:\Backup Verzeichnis, d.h. es sieht dann etwa so aus:

Delphi-Quellcode:

T:\Backup\Verzeichnis_1\
T:\Backup\Verzeichnis_2\
T:\Backup\Verzeichnis_3\
T:\Backup\datei1.xls       //ist normalerweise im Verzeichnis_4
T:\Backup\datei2.xls       //ist normalerweise im Verzeichnis_4
T:\Backup\UnterorderXY\    //ist normalerweise im Verzeichnis_4
T:\Backup\readme.txt       //ist normalerweise im Verzeichnis_4

Wer kann mir sagen, wo ich da den Fehler gemacht habe?

Vielen Dank schonmal