Dateien kopieren

[smart]

Guten Morgen!

Wie kopiert man mit Delphi Dateien. Irgend wie klappt das bei mir nicht. Ich habe es so versucht.

Delphi-Quellcode:

function DateiKopieren(const Quelle, Ziel: string; Ueberschreiben: Boolean = true): Boolean; 
begin 
  Result := CopyFile(PChar(Quelle),PChar(Ziel),not Ueberschreiben); 
end;

Klappt aber nicht.

Gruß
Heike

[mkinzler]

CopyFile()

[Bernhard Geyer]

Zitat:

Zitat von smart

Wie kopiert man mit Delphi Dateien.

Z.b. mit der CopyFile-Funktion aus der Windows-API (Windows.pas)

Zitat:

Zitat von smart

Irgend wie klappt das bei mir nicht.

Also bei fast 1000 Beiträgen hatte ich schon etwas genauere Beschreibung erwartet. Du weist ja - Glaskugel :-)

[smart]

Zitat:

Zitat von Bernhard Geyer

Also bei fast 1000 Beiträgen hatte ich schon etwas genauere Beschreibung erwartet. Du weist ja - Glaskugel :-)

Hi Bernhard!

Da kann ich nicht viel schreiben. Kopiert einfach nicht. Kommt auch keine Fehlermeldung.

Gruß
Heike

[DeddyH]

Was sagt denn GetLastError?

[TeronG]

Die üblichen verdächtigen haste bestimmt schon ausgeschlossen oder?

Quelle existiert? bzw in Quelle "steht was drinnen"?
Quelle & Ziel vertauscht?
Die variabeln Quelle & Ziel sind einmalig?
Letzter Fehler?
Schreibrechte sind vorhanden?
Rechner neugestartet ^^

...

[smart]

Hi.

Ich möchte einfach eine Datei von C:\datei.txt nach D:\ kopieren. Dafür habe ich mir die obige Funktion geschrieben. Wenn ich diese ausführe wird sie Fehlerfrei abgearbeitet. (Keinerlei Fehler). Wenn ich dann nachschaue ist die Datei nicht kopiert worden. Die gleiche Datei lässt sich aber mit dem Explorer kopieren.

Gruß
Heike

[TeronG]

Steht bei dir bei Ziel der Dateiname auch dabei? oder nur der Ort?

Also 'd:\test.txt' oder 'd:\'

[smart]

Zitat:

Zitat von TeronG

Die üblichen verdächtigen haste bestimmt schon ausgeschlossen oder?...

Jau, habe ich.

Zitat:

Zitat von TeronG

"steht was drinnen"?

Hmm, muss das was drinnen stehen? Kann man keine Lehrdatei kopieren?

Gruß
Heike

[TeronG]

Zitat:

Zitat von smart

Zitat:

Zitat von TeronG

"steht was drinnen"?

Hmm, muss das was drinnen stehen? Kann man keine Lehrdatei kopieren?

Sorry .. ich meinte in der Variabel und nicht in der Datei. :roll: (zu schnell/ungeneu getippt)


EDIT: Ich tippe ja stark darauf, daß im Ziel der Dateiname fehlt! (das gibt keine fehlermeldung kopiert wird aber auch nix)
nochn EDIT: GetLastError währe dann 3 ... (nur so btw)
EDIT3: (liest das noch einer?) MyFehlerstring := SysErrorMessage(GetLastError);

[DeddyH]

Zeig doch mal den Aufruf.

[Hawkeye219]

Hallo Heike,

du solltest als Ziel einen Dateinamen angeben.

Gruß Hawkeye

//Edit: Sorry, TeronG hatte es schon geschrieben...

[smart]

Hallo.

Zielname habe ich angegeben. GetLastError ist 0. Das muss Irgendwie an Vista liegen. Ich habe jetzt mal das Ganze auf einen anderen Rechner mit XP laufen lassen. Da klappt es einwandfrei. Komische Sache !?

Gruß
Heike

[Bernhard Geyer]

Zitat:

Zitat von smart

Zielname habe ich angegeben. GetLastError ist 0. Das muss Irgendwie an Vista liegen. Ich habe jetzt mal das Ganze auf einen anderen Rechner mit XP laufen lassen. Da klappt es einwandfrei. Komische Sache !?

Kannst du mit dem Explorer die Kopieraktion durchführen? (Bitte auch mit F5 kontrollieren ob der Windows Explorer hier dich nicht veräppelt). Evtl. mit Alternativdateiexplorer durchführen. Evtl. mit Console und Copy-Befehl nochmals probieren.
Und eine evtl. vorhandene Zieldatei (im Code) per DeleteFile vorsorglich löschen.

[Luckie]

Von wo nach wo willst du denn kopieren und mit welchen Benutzerrechten? Eventuell wird das ganze ja von Vista virtualisiert.

[smart]

Zitat:

Zitat von Luckie

Von wo nach wo willst du denn kopieren und mit welchen Benutzerrechten? Eventuell wird das ganze ja von Vista virtualisiert.

Hi Michael.

Ich wollte von C:\Test.txt nach D:\Test.txt mit normalen User- Rechten kopieren. Das geht aber nicht! Die obige Routine wird zwar Fehlerfrei abgearbeitet aber nicht wirklich kopiert. Auch mit Adminrechten nicht. Wenn ich das Ganze unter XP laufen lasse, klappt es einwandfrei.

Gruß
Heike

[TeronG]

Zitat:

Zitat von smart

GetLastError ist 0. Das muss Irgendwie an Vista liegen.

Kein LastError bei Vista!? Wie Uncool!

Bei Vista kannich leider nimmer weiterhelfen :?
Währe ja zu schön gewesen, wenn es nur so n einfacher Fehler gewesen währe.

Gruß
Steve

[DeddyH]

Zitat:

Zitat von TeronG

Kein LastError bei Vista!? Wie Uncool!

Sehe ich genauso. Eigentlich hatte ich mit 5 gerechnet.

[hoika]

Hallo,

probiere mal, die Datei über die Kommando-Console (cmd) zu kopieren,
also Start-Ausführen CMD

copy c:\datei.txt d:\


Heiko