copyfile geht nicht

[Luckie]

Und lösche die Dateien im Zielverzeichnis.

[PAB]

//Edit: Hat sich erledigt

[DeddyH]

Welche Fehlermeldung wird denn ausgegeben? Immer noch "Das System kann den angegebenen Pfad nicht finden"?

[Dr. Jack]

die datei ist umbenannt, zielverzeichnis nochmal neu erstellt,

aber leider alles beim alten... hier mal der ganze quellcoder der procedure, vielleicht hab ich was übersehen.

procedure TEinkaufsliste.BitBtn1Click(Sender: TObject);
begin
Case MessageDlg ('Soll diese Einkaufsliste gespeichert werden?', mtConfirmation, [ mbYes, mbNo], 0) of
mrYes:

if not CopyFile(PChar('C:\KS\EV\ev.txt'), PChar('D:\KS\EV\EVSAVE\ev.txt'), false) then
ShowMessage('Fehler beim Erstellen der Kopie!'#13#10 + SysErrorMessage(GetLastError));

mrNo: ;

End;

einkaufsliste.close;
end;

[Dr. Jack]

achso laufwerk c und d sind nur übrig geblieben aus meinen versuchen gerade eben --> muss f:\ sein

[Luckie]

Äh, wird die Datei auch vorher im Programm geschlossen? Also wird der Stream oder die StringListe, je nach dem, was du benutzt, auch vorher freigegeben?

[DeddyH]

Was geschieht, wenn Du auf der Konsole

Code:

copy F:\KS\EV\ev.txt F:\KS\EV\EVSAVE\ev.txt

ausführst?

[Luckie]

Und das bitte bei geöffneten Programm und geladener Datei, so wie es auch im Programm der Fall wäre. dann das ganze mit geschlossenem Programm.

[Dr. Jack]

das system kann den angegebenen pfad nciht finden- aber auf dem screenshot kann man das doch sehen??

[Bjoerk]

Führ' das bitte mal aus und poste uns die Meldungen.

Delphi-Quellcode:

function TryResetFile(FileName: string): boolean;
var
  F: textFile;
  IO: integer;
begin
  AssignFile(F, FileName);
  {$I-} Reset(F); {$I+}
  IO:= IOResult;
  Result:= IO = 0;
  if not Result then
    MessageDlg(FileName+' ['+SysErrorMessage(IO)+'].', mtError, [mbOK], 0)
  else
    CloseFile(F);
end;

function TryRewriteFile(FileName: string): boolean;
var
  F: textFile;
  IO: integer;
begin
  AssignFile(F, FileName);
  {$I-} Rewrite(F); {$I+}
  IO:= IOResult;
  Result:= IO = 0;
  if not Result then
    MessageDlg(FileName+' ['+SysErrorMessage(IO)+'].', mtError, [mbOK], 0)
  else
    CloseFile(F);
end;

procedure TEinkaufsliste.BitBtn1Click(Sender: TObject);
begin
  TryResetFile('F:\KS\EV\ev.ini');
  TryRewriteFile('F:\KS\EV\EVSAVE\ev.ini')
  // Dein Code ..
end;