Dateien in einen ordner im Netzwerk kopieren

[Getox]

Hallo,

Ich habe mal wieder ein kleines Problem. Ich möchte gerne, dass mein Programm eine Datei von meiner Festplatte in einen im Netzwerk freigegebenen Ordner verschiebt. Dabei möchte ich eigentlich gerne auf die TCP/IP Komponenten verzichten.

Ich habe mir mal ein kleines beispielprogramm (Ein Button und ein Label) gebaut um das zu testen und der Test ist leider recht erfolglos.

Hier mal meine Prozedur:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := BoolToStr (CopyFile(PChar('C:\MeinVerzeichnis\Dokument.txt'),PChar('\\PC-FremderComputer\TargetFolder'), false));
end;

Ich habe die Verzeichnisnamen und den Namen des Zielcomputers abgeändert, aber man sollte trotzdem meinen Ansatz erkennen können.

Was mache ich falsch?

Liebe Grüße

[haentschman]

Moin...

welche Fehlermeldung erhälst du ?
Tipp: vergleiche mal die Dateinamen...

[Getox]

Keine... Mein Label zeigt mir einfach 0 an.

Die fehlermeldungen musste man explizit einschalten oder?

[haentschman]

Wo liegt der Unterschied ?

C:\MeinVerzeichnis\Dokument.txt
zu...
\\PC-FremderComputer\TargetFolder

[DeddyH]

CopyFile

Zitat:

Return value

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

[Getox]

Das eine ist die Datei im Quellverzeichnis und das andere das Zielverzeichnis, wo die Datei hin soll... Der Unterschied ist, dass das eine ein Pfad zu einer Datei und das andere der Pfad zu einem verzeichnis ist?^^

[haentschman]

Zitat:

Mit der Funktion CopyFile hat der Programmierer eine weitere Möglichkeit zum Kopieren von Dateien. Mit ihr lassen sich nur einzelne Dateien kopieren. Als erste Parameter wird der Pfad zur existierenden Datei erwartet, dem zweiten wird der neue Dateiname übergeben. Soll eine evtl. vorhandene Datei überschrieben werden, muss dem dritten Parameter False übergeben werden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CopyFile(PChar('C:\Datei.txt'), PChar('C:\Datei.neu.txt'), False) then
   Showmessage('Datei wurde kopiert')
  else
   RaiselastOSError;
end;

[haentschman]

Zitat:

Das eine ist die Datei im Quellverzeichnis und das andere das Zielverzeichnis, wo die Datei hin soll... Der Unterschied ist, dass das eine ein Pfad zu einer Datei und das andere der Pfad zu einem verzeichnis ist?^^

"Das eine ist die Datei"
"das eine ein Pfad zu einer Datei"
... was fehlt ?

PS: du sollst von selbst drauf kommen...

[Getox]

Zitat:

dem zweiten wird der neue Dateiname übergeben

Bin drauf gekommen, hat funktioniert. Danke.

Hatte ich wohl falsch verstanden, vielleicht durch ungenaues Lesen.

[haentschman]

...und wieder was gelernt