CopyFileEx - Paramter Problem

[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;