Problem beim kopieren mit SHFileOperation

[CalganX]

Hi,
mithilfe sakura's Code kopiere ich Dateien. Nachdem ich den Source einmal neu kompiliert habe, klappt nix mehr.
Wenn ich ausführe und er die Dateien kopieren sollte, dann kommt der Fehler, dass Pfad xyz (dieser wurde vorher geprüft und danach nicht mehr verändert) nicht existiere, und ob ich diesen anlegen will. Danach bricht das Programm (dies ist aber meine "Schuld").
Der Source, der mich um den Verstand bringt:

Delphi-Quellcode:

  _pgbPg4Status.Position := 4;
  _lbPg4Status.Caption := 'Kopieren der Dateien';
  aFilesFrom := TStringList.Create;
  aFilesfrom.Add(tempDir+'unzipped\'+'CodeLib.exe');
  if Features[fNewTipps] then
    aFilesfrom.Add(tempDir+'unzipped\'+'themes\*.*');
  if Features[fNewWelcomeMsg] then
    aFilesfrom.Add(tempDir+'unzipped\'+'welcome.txt');
  aFilesTo := TStringList.Create;
  aFilesTo.Add(aTargetDir);
  if Features[fNewTipps] then
    aFilesTo.Add(aTargetDir+'themes\');
  if Features[fNewWelcomeMsg] then
    aFilesTo.Add(aTargetDir);
  if DoFileWork(self.Handle, FO_COPY, aFilesFrom, aFilesTo, FOF_NOCONFIRMATION or FOF_MULTIDESTFILES) <> 0 then begin
    MessageDlg('Fehler beim kopieren der Dateien!'+#13+#10+'Das Update wird nun beendet. Bitte laden Sie die Dateien '+#13+#10+'erneut herunter und wiederholen Sie das Update!', mtError, [mbOK], 0);
    Application.Terminate;
  end;
  aFilesTo.Free;

Irgendwo liegt dort der Hund vergraben. Bitte, bitte, helft mir!

Chris

[Christian Seehase]

Moin Chris,

wenn Du FOF_MULTIDESTFILES angibst, musst Du auch die Zieldateien angeben, und zwar alle, und genau soviele wie Quelldateien.
Nur der Zielpfad reicht dann nicht.

[CalganX]

Achso, Zielpfad + Dateiname?
Danke!

Chris

[Christian Seehase]

Moin Chris,

was Dir übrigens ein Blick ins PSDK zu SHFileOperation oder sakuras Dokumentation zu DoFileWork auch verraten hätten ;-)