Und trotzdem klappt's nicht:Löschen kopieren und umbenennen

[Fussel9]

Hi,
Hatte letzten schon mal gefragt wegen dem Kopieren Löschen und Umbenennen einer Datei, darauf habe ich folgendes erhalten:

Delphi-Quellcode:

    if CopyFile(PAnsiChar(hintergrund),PAnsiChar('.\'+ExtractFileName(hintergrund)),False) then
      begin
        DeleteFile('.\backgr.*');
        RenameFile('.\'+ExtractFileName(hintergrund),'.\'+'backgr.*');

Also ich habe in meinem Ordner eine Datei die den Namen backgr.jpg trägt nun soll das Programm diese Datei ersetzen durch eine andere aus dem OpenDlg
backgr.jpg --> x |löschen
irgendwas.*--> \/ |in den Ordner kopieren
irgendwas.*--> # |umbenennen in backgr.*

das finktioniert aber so nicht, denn die if then Abfrage wird nie erfüllt


.... Weiß wer weiter?

[turboPASCAL]

Bevor ich mir hier einen Wolf Tippe, lies der erst einmal bitte folgendes durch:
http://www.delphi-library.de/viewtopic.php?p=499701

[TurboMartin]

Zitat:

Zitat von Fussel9

Hi,
Hatte letzten schon mal gefragt wegen dem Kopieren Löschen und Umbenennen einer Datei, darauf habe ich folgendes erhalten:

Delphi-Quellcode:

    if CopyFile(PAnsiChar(hintergrund),PAnsiChar('.\'+ExtractFileName(hintergrund)),False) then
      begin
        DeleteFile('.\backgr.*');
        RenameFile('.\'+ExtractFileName(hintergrund),'.\'+'backgr.*');

Also ich habe in meinem Ordner eine Datei die den Namen backgr.jpg trägt nun soll das Programm diese Datei ersetzen durch eine andere aus dem OpenDlg
backgr.jpg --> x |löschen
irgendwas.*--> \/ |in den Ordner kopieren
irgendwas.*--> # |umbenennen in backgr.*

das finktioniert aber so nicht, denn die if then Abfrage wird nie erfüllt


.... Weiß wer weiter?

Sollte dein Verzeichnis das Programmverzeichnis sein, besitzt Du keine Rechte für solche Operationen

[Fussel9]

Versteh ich nicht.
Mein Programmverzeichniss ist ein Ordner auf dem Desktop...

[DeddyH]

Tja, wenn man alle Hinweise im anderen Thread ignoriert: keine relativen Pfade, keine Wildcards, Ausgabe einer evtl. Fehlermeldung.

[turboPASCAL]

Zitat:

Zitat von DeddyH

Tja, wenn man alle Hinweise im anderen Thread ignoriert: keine relativen Pfade, keine Wildcards, Ausgabe einer evtl. Fehlermeldung.

Delphi-Quellcode:

function _CopyFile(FromFilePathAndFilename, ToFilePath: string): bool;
var NewPathAndFileName: string;
begin
  Result := False;

  if FileExists(FromFilePathAndFilename) then
  begin
    ToFilePath := IncludeTrailingBackslash(ToFilePath);
    if DirectoryExists(ToFilePath) then
    begin
      NewPathAndFileName := ToFilePath + ExtractFileName(FromFilePathAndFilename);

      if CopyFile(PAnsiChar(FromFilePathAndFilename), PAnsiChar(NewPathAndFileName), False) then
      begin
        Result := True;
        ShowMessage('CopyFile klappte.');
      end else
        ShowMessage('CopyFile klappt nicht');

    end else
      ShowMessage('Verzeichnis "'+ToFilePath+'" nicht gefunden.');

  end else
    ShowMessage('Datei "'+FromFilePathAndFilename+'" nicht gefunden.');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  _CopyFile('C:\Temp\Otto.txt', 'C:\Users\User\Desktop\')
end;

[DeddyH]

Sollte es nicht genügen, GetLastError auszuwerten?

[turboPASCAL]

Für jmd der damit umgehen kann sicher. ;)

[DeddyH]

Das hatte ich doch im anderen Thread bereits gepostet (deshalb bin ich ja etwas angesäuert).

[turboPASCAL]

Zitat:

Zitat von DeddyH

Das hatte ich doch im anderen Thread bereits gepostet (deshalb bin ich ja etwas angesäuert).

Trink Milch. ;)

Wusste ich nicht, also den anderen Thread.

[Fussel9]

HI :oops:
leider kenn ich mich in Delphi nun mal nicht sooooo gut aus wie ihr,
denn ich lerne es noch...

Zitat:

_CopyFile('C:\Temp\Otto.txt', 'C:\Users\User\Desktop\')

was solln das '_' ?

Zitat:

ToFilePath := IncludeTrailingBackslash(ToFilePath);

Is da nich schon nen '/'?


PS: Eigentlich will ich nur die über nen OpenDialog ausgewählte Datei nehmen, sie in den Ordner der Exe kopieren. Dann die datei im Ordner löschen und die kopierte datei so benennen wie die gelöschte datei.....

[DeddyH]

Die Zeile stellt einfach nur sicher, dass der Verzeichnisname mit einem Backslash endet.

[Luckie]

So lange du uns nicht sagst, Warum das Kopieren fehl schlägt, können wir hier nur weiter rumraten. Also, was gibt GetLastError aus?

[himitsu]

Delphi-Quellcode:

if DirectoryExists(ExcludeTrailingBackslash(ToFilePath)) then

ich glaub diese Funktion mag keine Backslashs