Entwickler-Ecke

Dateizugriff - Datei kopieren


Borlox - Mo 04.11.02 13:43
Titel: Datei kopieren
Hi Leute,

ich habe versucht mit dem folgenden Code, das Projekt, welches gerade läuft auf einen bestimmten fahrt zu kopieren, aber es klappt leider nicht, leider gibt es auch keine Fehlermeldung!!!!!!

Quelltext
1:
  CopyFile(PChar(ExtractFilePath(Application.ExeName)+Application.ExeName), PChar('C:\WINDOWS\Desktop\'+Application.ExeName), false);                    


Was ist denn falsch???

Danke


LCS - Mo 04.11.02 13:51

Hi
du solltest einfach mal kurz darüber nachdenken, was du hier erzeugst. Application.Exename enthält den Pfad und den Dateinamen deiner Anwendung. Also z. B. C:\Source\Sonstwas\Sonstwas.exe.

Mit deinem Code versuchst du die Datei:
C:\Source\Sonstwas\c:\Source\Sonstwas\Sonstwas.exe zu kopieren nach
C:\Windows\Desktop\c:\source\Sonstwas\Sonstwas.exe

Das das nicht klappt ist eigentlich klar :wink: Wenn überhaupt dann würde eventuell das funktionieren (nicht getestet):

Quelltext
1:
CopyFile(PChar(Application.ExeName), PChar('C:\WINDOWS\Desktop'), false);                    


Gruss Lothar

------
Nachtrag: Kam zu spät. Hast es ja mittlerweile selber rausgefunden :D


Delete - Mo 04.11.02 13:52
Titel: Re: Datei kopieren
Borlox hat folgendes geschrieben:
Was ist denn falsch???

Eine Menge.

Im ersten Teil extrahierst du den Pfad aus "Application.ExeName", hängst aber das selbe noch mal ran. Ergebnis bspw.:

Quelltext
1:
e:\Develop\e:\Develop\Project1.exe                    

Als Ziel gibst du den Desktop an und hängst wieder "Application.ExeName" ran:

Quelltext
1:
C:\Windows\Desktop\e:\Develop\Project1.exe                    


Richtig wäre also, wenn du im ersten Teil nur "Application.ExeName" angibst (nichts weiter; nicht mehr und nicht weniger). Und im zweiten Teil extrahierst du den Dateinamen aus "Application.ExeName" und hängst den an das Ziel (den Desktop in dem Fall) an.

Zitat:
Danke

Bitte.


Delete - Mo 04.11.02 13:53

Da hatten wir ja den gleichen Oberlehrer-Gedanken, was Lothar?
:wink:


LCS - Mo 04.11.02 13:59

Ja. Mal wieder :mrgreen: