Ordner verschieben > als nächste KW

[SaFu]

Mosche

Hätt da gern mal ein Problem

sagmal weis jemand wie ich das machen kann, das ich sage alle Ordner die älter sind als (Aktuelle KW + 1), können nicht ins Archiv verschoben werden .


So hab ich es gemacht für die Aktuelle und die nächste KW, aber alles was noch älter ist darf garnicht verschoben werden

Delphi-Quellcode:

 
sPfadMessage:= ExtractFileName(ShellTreeView1.Path); 

  if (sPfadMessage = (IntToStr(YearOf(Date)))+'_KW_'+ (IntToStr(WeekOfTheYear(Date)))) then
   begin
     MessageDlgPos7('Ordner der aktuellen KW kann nicht ins Archiv verschoben werden',mtInformation,[mbOk],self);
     Exit;
   end
  else

  if (sPfadMessage = (IntToStr(YearOf(Date)))+'_KW_'+ (IntToStr(WeekOfTheYear(Date)+1))) then
   begin
     MessageDlgPos7('Ordner der nächsten KW kann nicht ins Archiv verschoben werden',mtInformation,[mbOk],self);
     Exit;
   end
  else