Kopieren mehrerer Dateien
HAllo,
ich habe ein Problem beim Kopieren mehrerer Dateien: mit folgendem Quellcode mache ich das:
Delphi-Quellcode:
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 "".
...
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; ... Hat jemand eine Ahnung woran das liegt? [edit=sakura] [delphi]Tags Mfg, sakura[/edit] |
Re: Kopieren mehrerer Dateien
Hi,
Ich habe den Fehler schon gefunden. Hatte bei der Übergabe des Dateinamens ein "\" zu viel drin. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:25 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz