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]