Verschieben von Ordner

[Klaus01]

Zitat von fuknersascha:

Habe es mal so gemacht

Delphi-Quellcode:

procedure TForm7.Button11Click(Sender: TObject);
begin
  if MoveDir((ExtractFilePath(ParamStr(0)))+'Vertretungspläne\KW_'+(IntToStr(WeekOfTheYear(Date)))+'_'+(IntToStr(yearof(Date))),(ExtractFilePath(ParamStr(0)))+'Vertretungspläne Archiv\') = True then
    ShowMessage('Directory copied.');
    showMessage(SysErrorMessage(GetLastError));
end;

function TForm7.MoveDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_MOVE;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + (ExtractFilePath(ParamStr(0)))+'Vertretungspläne\KW_'+(IntToStr(WeekOfTheYear(Date)))+'_'+(IntToStr(yearof(Date))));
    pTo    := PChar(toDir+(ExtractFilePath(ParamStr(0)))+'Vertretungspläne Archiv\');
  end;
  Result := (0 = ShFileOperation(fos));
end;

Aber bekomme einen fehler (Quelldatenträger kann nicht gelesen werden)

wo liegt da der fehler

Warum gibts Du die Pfade denn zweimal an, einmal im MoveDir und dann übergibst
Du die gleichen Pfade als Parameter und im MoveDir werden diese
beiden Pfade zusammegesetzt. Diese Pfade werden wohl nicht existieren.

Grüße
Klaus