[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

Delphi-Quellcode:

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ß.

Delphi-Quellcode:

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. :stupid:
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. :stupid:


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:

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:

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"