[CopyFile] Rückgabewert false, aber kein Grund

[xZise]

Ich habe folgenden Code:

Delphi-Quellcode:

  if CopyFile(PChar(appDir + 'Update.exe'), PChar(qdPath), true) then
  begin
     MessageBox(Handle, PChar('The update was sucessfully installed!'), PChar('Update sucess'), MB_OK or MB_ICONEXCLAMATION);
  end else
    MessageBox(Handle, PChar('Quick Download can''t updated. Please repeat it later'), PChar('No update'), MB_OK or MB_ICONWARNING);

Aber er kopiert die Datei nicht...

[fwsp]

ist in qdPath auch neben dem pfad auch der dateiname enthalten?

[Matze]

Sonst könntest du auch mal schauen, was dir

ShowMessage(SysErrorMessage(GetLastError)); liefert. Einfach nach deinem Code ausführen.

[xZise]

Habe ich vergessen zu sagen: Wenn ich beide Pfade ausgebe, kopiere, im Explorer einfüge und ausführe => startet das Prog

@ Matze: Ich liebe win ^^

Zitat:

---------------------------
Quickdownloadupdate
---------------------------
Der Vorgang wurde erfolgreich beendet
---------------------------
OK
---------------------------

[Sunlight7]

Moin!

Hast Du zufällig sowas gemacht?

Delphi-Quellcode:

if CopyFile(PChar(appDir + 'Update.exe'), PChar(qdPath), true) then
  begin
    MessageBox(Handle, PChar('The update was sucessfully installed!'), PChar('Update sucess'), MB_OK or MB_ICONEXCLAMATION);
  end else begin
    MessageBox(Handle, PChar('Quick Download can''t updated. Please repeat it later'), PChar('No update'), MB_OK or MB_ICONWARNING);
    ShowMessage(SysErrorMessage(GetLastError));
end;

Hat appDir einen abschließenden \ ?

Grüßle!

[himitsu]

oder man wendet sich mal an die Definition:

Code:

BOOL CopyFile(LPCTSTR lpszExistingFile, LPCTSTR lpszNewFile, BOOL fFailIfExists)

lpszNewFile ... File und nicht Dir/Path

Übergibt man da ein Verzeichnis(Dir), dann soll ja das Verzeichnis mit der Datei überschrieben werden, was natürlich schiefgehn muß.

if CopyFile(PChar(appDir + 'Update.exe'), PChar(qdPath + 'Update.exe'), true) then @Sunlight7: da appDir ja anscheinend ein abschließendes Backslash hat, würde ich einfach mal davon aus daß qdPath dieses auch hat.
Aber er hätte und ja auch einfach mal sagen können was sich in appDir und qdPath befindet ... wäre für die Fehlersuche schon eine recht wichtige Angabe gewesen.


PS: vielleicht wäre es auch schön, wenn er sich an die Namensgebung (z.B. von Delphi) hält.
Filename = Dateiname, eventuell inklusive Verzeichnis
Path = Verzeichnis mit \, sozusagen der Pfad zu einer Datei
Dir = das Verzichenis selber, also ohne \

Delphi-Quellcode:

if CopyFile(PChar(appDir + '\Update.exe'), PChar(qdDir + '\Update.exe'), true) then
if CopyFile(PChar(appDir + '\Update.exe'), PChar(qdPath + 'Update.exe'), true) then
if CopyFile(PChar(appPath + 'Update.exe'), PChar(qdPath + 'Update.exe'), true) then
...

[xZise]

Zitat von xZise:

Habe ich vergessen zu sagen: Wenn ich beide Pfade ausgebe, kopiere, im Explorer einfüge und ausführe => startet das Prog

1. appDir hat ein abschließendes "\"
2. qdPath ist ein Pfad zur Datei (X:\Y\A.exe)

Zitat von himitsu:

PS: vielleicht wäre es auch schön, wenn er sich an die Namensgebung (z.B. von Delphi) hält.
Filename = Dateiname, eventuell inklusive Verzeichnis
Path = Verzeichnis mit \, sozusagen der Pfad zu einer Datei
Dir = das Verzichenis selber, also ohne \

Delphi-Quellcode:

if CopyFile(PChar(appDir + '\Update.exe'), PChar(qdDir + '\Update.exe'), true) then
if CopyFile(PChar(appDir + '\Update.exe'), PChar(qdPath + 'Update.exe'), true) then
if CopyFile(PChar(appPath + 'Update.exe'), PChar(qdPath + 'Update.exe'), true) then
...

War mir so noch nicht klar... Also denkt euch:
"appDir" = "appPath"
"qdPath" = "qdFileName"