Ordner verschiben verbessern

**SaFu**

hi hab mal ein Problem

Ich habe einen ordner für eine aktuelle KW der soll in der nächsten KW in ein archiv verschoben werden. Darauhin soll ein neuer ordener für die neue KW erzeugt werden soweit ghet das auch un zwar so

zusammenfalten · markieren

Delphi-Quellcode:

			if DirectoryExists (ExtractFilePath(ParamStr(0)) +('\Vertretungspläne\'+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)-1)))) then

    begin

     Timer1.Enabled:= True;

     Form8.liste1laden;

     Form8.liste2laden;

     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\'+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)-1)));

 pTo    := PChar(toDir+(ExtractFilePath(ParamStr(0)))+'Vertretungspläne Archiv\Jahr_'+(IntToStr(yearof(Date))));

  end;

  Result := (0 = ShFileOperation(fos));

  Timer1.Enabled:= False;

end;

//==============Prozedure ordener verschieben===================================

procedure TForm7.ordnerverschieben;

Var pFrom,pTo :String;

begin

  if MoveDir(pFrom,pTo) = True then

 Showmessage(('Ordner '+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)-1)))+' wurde ins Archiv Jahr_'+(IntToStr(yearof(Date)))+ ' Verschoben');

  ShellTreeView1.Refresh(ShellTreeView1.Items[0]);

  Timer1.Enabled:= False;

end;

procedure TForm7.Timer1Timer(Sender: TObject);

begin

 ordnerverschieben;

ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Vertretungspläne\'+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)))+'\Bemerkungen');

ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Vertretungspläne\'+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)+1))+'\Bemerkungen');

 Form8.liste1laden;

 Form8.liste2laden;

end;

mein problem ist jetzt das mir das nicht so gefällt und keine ahnung habe wie ich das verbessern könnte

z.b in der ersten abfrage schöne wäre es nachder KW abzufragen anstatt nach dem ordner wie könnt ich das verbessern

Ordner verschiben verbessern

Ordner verschiben verbessern

Forumregeln