FileCopy "Zugriff verweigert"

[kean]

Ich habe ein Programm geschrieben welches dateien öffnet und auslist. Danach sollen diese Dateien mit CopyFile auf Diskette kopiert werden. Dabei tritt der Fehler "Zugriff verweigert" auf.
Gibt es einen Befehl oder Parameter womit ich die Dateien trotzdem kopieren kann?

[Luckie]

Ist die Datei noch geöffnet und wenn ja wie (exklusiv, ...)?

Warum wird eigentlich immer sofort nach einer anderen Lösung / Methode gefragt, wenn was nicht sofort klappt, anstelle mal den Code nach Fehlern durchzugucken.

[Die Muhkuh]

Zitat von Luckie:

Ist die Datei noch geöffnet und wenn ja wie (exklusiv, ...)?

Warum wird eigentlich immer sofort nach einer anderen Lösung / Methode gefragt, wenn was nicht sofort klappt, anstelle mal den Code nach Fehlern durchzugucken.

Vielleicht weil manche zu faul danach zu suchen?

[kean]

if CopyFile(PChar(Angebotsdatei), PChar('A:'), False) then Showmessage('Datei wurde kopiert') else RaiselastOSError; Mit diesem Code will ich kopieren. Es sind insgesamt 3 Dateien wovon eine Datei vorher von Delphi geöffnet aber auch wieder geschlossen wird.

Also sollten zu diesem Zeitpunkt wo der button geclickt wird alle Dateien nicht geöffnet sein.

[Luckie]

Zitat von kean:

Also sollten zu diesem Zeitpunkt wo der button geclickt wird alle Dateien nicht geöffnet sein.

Und sind sie es auch? Ein CloseFile vergisst man schnell mal irgendwo.

[Neutral General]

Zitat von kean:

if CopyFile(PChar(Angebotsdatei), PChar('A:'), False) then Showmessage('Datei wurde kopiert') else RaiselastOSError; Mit diesem Code will ich kopieren. Es sind insgesamt 3 Dateien wovon eine Datei vorher von Delphi geöffnet aber auch wieder geschlossen wird.

Also sollten zu diesem Zeitpunkt wo der button geclickt wird alle Dateien nicht geöffnet sein.

Du musst bei dem Ziel doch noch den Dateinamen angeben oder ?
Also :

if CopyFile(PChar(Angebotsdatei), PChar('A:\' + Angebotsdatei), False) then Showmessage('Datei wurde kopiert') else RaiselastOSError;

[kean]

Zitat von Neutral General:

Du musst bei dem Ziel doch noch den Dateinamen angeben oder ?
Also :

if CopyFile(PChar(Angebotsdatei), PChar('A:\' + Angebotsdatei), False) then Showmessage('Datei wurde kopiert') else RaiselastOSError;

Das wars. Vielen Dank.