Kopieren will mal und mal nicht

[SaFu]

Hi was mach ich Falsch beim Kopieren von Dateien mal will es und mal nicht

Sind meine Pfad angaben zulang ??

Delphi-Quellcode:

    sPfadNichtOffen:= FileListBox1.FileName;
    sPfadOffen:= (ServerPfad  + sPath_Puplic + ExtractFileName(ShellTreeView1.Path)+'\' + ExtractFileName(FileListBox1.FileName));

    sPfadNichtOffen1:= (ShellTreeView1.SelectedFolder.PathName+'\Bemerkungen\' + ExtractFileName(ChangeFileExt(FileListBox1.FileName, '.txt')));
    sPfadOffen1:= (ServerPfad  + sPath_Puplic + ExtractFileName(ShellTreeView1.Path)+'\Bemerkungen\' + ExtractFileName(ChangeFileExt(FileListBox1.FileName, '.txt')));

    sPfadNichtOffen2:= (ShellTreeView1.SelectedFolder.PathName+'\Bemerkungen\Bemer2\' + ExtractFileName(ChangeFileExt(FileListBox1.FileName, '.txt')));
    sPfadOffen2:= (ServerPfad  + sPath_Puplic + ExtractFileName(ShellTreeView1.Path)+'\Bemerkungen\Bemer2\' + ExtractFileName(ChangeFileExt(FileListBox1.FileName, '.txt')));

oder ist das Kopieren nicht richtig, aber manchmal geht es ja??

Delphi-Quellcode:

begin
  CopyFile(PChar(sPfadNichtOffen), PChar(sPfadOffen),True);
  CopyFile(PChar(sPfadNichtOffen1), PChar(sPfadOffen1),True);
   if CopyFile(PChar(sPfadNichtOffen2), PChar(sPfadOffen2),True)Then
     MessageDlgPos7('Dateien Kopiert',mtInformation,[mbOk],self);
end;

Gruß Sascha

[DeddyH]

Der letzte Parameter von CopyFile heißt FailIfExists. Evtl. musst Du den auf false stellen?

[itashadow]

lass dir mal vor dem kopieren die ordner ausgeben:

Delphi-Quellcode:

begin
  showmessage(sPfadNichtOffen + #13#10 + sPfadOffen);
  showmessage(sPfadNichtOffen1 + #13#10 + sPfadOffen1);
  showmessage(sPfadNichtOffen2 + #13#10 + sPfadOffen2);
  CopyFile(PChar(sPfadNichtOffen), PChar(sPfadOffen),True); 
  CopyFile(PChar(sPfadNichtOffen1), PChar(sPfadOffen1),True); 
   if CopyFile(PChar(sPfadNichtOffen2), PChar(sPfadOffen2),True)Then 
     MessageDlgPos7('Dateien Kopiert',mtInformation,[mbOk],self); 
end;

und guck mal ob die dinger überhaupt existieren
und ob zb die \ richtig gesetzt sind oder ob du irgendwo 2 hintereinander hast
das kann schnell passieren wenn man nen pfad aus mehreren quellen zusammenstellt

[SaFu]

Ja das habe mir auch schon den Pfad anzeigen lassen aber das´stimmt alles.

Wie gesat manchmal ja manchmal nein.

Und bis gestern ist das Programm fast 1/2 jahr gelaufen ohne Probleme

[DeddyH]

Wie äußert sich "geht nicht" denn?

[SaFu]

Zitat:

Zitat von DeddyH

Der letzte Parameter von CopyFile heißt FailIfExists. Evtl. musst Du den auf false stellen?

aber ist der Parameter nicht das hier

Delphi-Quellcode:

overwrite
Boolean. Gibt an, ob vorhandene Dateien überschrieben werden sollen. Der Standardwert ist False. Erforderlich.

Die Datei wird einfach nicht in das andere Verzeichnis Kopiert

[DeddyH]

Hm? Welches CopyFile rufst Du denn da auf? Aufgrund der PChars würde ich auf die Unit Windows schließen, und da ist es eben andersherum. Zur Not geh auf Nummer Sicher und schreib

Delphi-Quellcode:

Windows.CopyFile(...,false)

[SaFu]

Hat leider auch keinen erfolg gebracht mmhh

Gibt es noch andere Methoden mit denen ich sicher Kopieren kann.

Das ist mir zu unsicher wenn es mal funzt und mal wieder nicht

[DeddyH]

Was sagt denn GetLastError? Muss ja irgendeine Ursache haben, dass es nicht geht.

[SaFu]

GetLasterror sagt :" Der Vorgang wurde erfolgreich beendet" ist aber nicht so die Datei wurde nicht Kopiert