AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

copyfile geht nicht

Ein Thema von Dr. Jack · begonnen am 6. Dez 2011 · letzter Beitrag vom 8. Dez 2011
Antwort Antwort
Seite 3 von 5     123 45   
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#21

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:15
Und lösche die Dateien im Zielverzeichnis.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
PAB

Registriert seit: 30. Mai 2002
Ort: Bünde
10 Beiträge
 
#22

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:16
//Edit: Hat sich erledigt
Philipp

Geändert von PAB ( 7. Dez 2011 um 16:20 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.459 Beiträge
 
Delphi 11 Alexandria
 
#23

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:17
Welche Fehlermeldung wird denn ausgegeben? Immer noch "Das System kann den angegebenen Pfad nicht finden"?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
78 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#24

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:26
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;
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
78 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#25

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:29
achso laufwerk c und d sind nur übrig geblieben aus meinen versuchen gerade eben --> muss f:\ sein
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#26

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:31
Ä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?
Michael
Ein Teil meines Codes würde euch verunsichern.

Geändert von Luckie ( 7. Dez 2011 um 16:34 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.459 Beiträge
 
Delphi 11 Alexandria
 
#27

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:33
Was geschieht, wenn Du auf der Konsole
Code:
copy F:\KS\EV\ev.txt F:\KS\EV\EVSAVE\ev.txt
ausführst?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#28

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:35
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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
78 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#29

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:37
das system kann den angegebenen pfad nciht finden- aber auf dem screenshot kann man das doch sehen??
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#30

AW: copyfile geht nicht

  Alt 7. Dez 2011, 16:41
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;
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf