Kopieren mehrerer Dateien

[Brakeman]

HAllo,
ich habe ein Problem beim Kopieren mehrerer Dateien:

mit folgendem Quellcode mache ich das:

Delphi-Quellcode:

...
   l:=high(datei_array)+1;
   for i:=0 to l-1 do
    begin
     datei:=datei_array[i];
     showmessage('-'+datei+'-');
     copyDatei(Source+datei, SG_Fam_Path+'\'+datei);
    end;
...

...
function copyDatei(quelle, ziel:string):Integer;
var fos: TSHFileOpStruct;
    rc: Integer;
begin
 ZeroMemory(@fos, SizeOf(fos));
 with fos do
  begin
   wFunc := FO_COPY;
   pFrom := PChar(quelle + #0);
   pTo := PChar(ziel + #0);
  end;
 rc:=SHFileOperation(fos);
 Result:=rc;
end;
...

Wenn die zu kopierende Datei im Zielordner schon vorhanden ist, werde ich gefragt, ob die Datei ersetzt werden soll. Habe ich nun mehrere Dateien im Array stehen, dann wird mir bei der Frage nach dem Ersetzen nicht der Name der Datei angezeigt, sondern nur "".

Hat jemand eine Ahnung woran das liegt?

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]

[Brakeman]

Hi,
Ich habe den Fehler schon gefunden. Hatte bei der Übergabe des Dateinamens ein "\" zu viel drin.