CopyFileEx - Paramter Problem

[t0mmy]

Hallo!

Ich habe eine ganz einfache Codezeile jedoch funktioniert diese nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFileEx('C:\alt\bla1.txt', 'C:\neu');
end;

Da Schreibt er beim Compilieren, bei der Zeile CopyFileEx.....einen Fehler: E2035 Nicht genügend wirkliche Parameter...???

Ich bin sprachlos, da ich keine nutzliche quelle finde?

[DeddyH]

Bitteschön

[t0mmy]

Okay mittlerweile habe ich die Zeile, folgt abgeändert.. und damit den compiler beruight...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFile(PChar('C:\alt\bla1.txt'), PChar('C:\neu'), False);
end;

Jedoch kopiert er nichts -.-
...also in neu is nichts drin.

[DeddyH]

Zitat:

Return Value

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

Das solltest Du mal tun, um festzustellen, wieso es nicht geht (fehlender Dateiname des Ziels?).

[t0mmy]

Okay... tut mir leid... hast recht... ich such halt nur einen befehl mit dem ich eine datei kopieren kann

[DeddyH]

Dann hast Du doch den richtigen erwischt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not CopyFile(PChar('C:\alt\bla1.txt'), PChar('C:\neu\bla1.txt'), False) then
    MessageBox(0, PChar(SysErrorMessage(GetLastError)), 'Autsch', MB_OK or MB_ICONERROR);
end;

[t0mmy]

Okay jetzt ist mir einiges kla... aber wie kann ich nun ein ganzes verzeichnis mit der dateiendung *.txt kopieren?
Einen Befehl wie CopyDir gibt es nicht -.-

[DeddyH]

Entweder mit SHFileOperation oder per FindFirst/FindNext die entsprechenden Dateien suchen und einzeln kopieren.

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not CopyFile(PChar('C:\alt\bla1.txt'), PChar('C:\neu\bla1.txt'), False) then
    MessageBox(0, PChar(SysErrorMessage(GetLastError)), 'Autsch', MB_OK or MB_ICONERROR);
end;

oder kürzer > RaiseLastOSError

Delphi-Quellcode:

if not CopyFile(...) then
  RaiseLastOSError;