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

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

[DeddyH]

Welche erste Abfrage?

[SaFu]

Ob der ordener vorhanden ist

Delphi-Quellcode:

if DirectoryExists (ExtractFilePath(ParamStr(0)) +('\Vertretungspläne\'+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)-1)))) then 
    begin 
     Timer1.Enabled:= True; 
    end;

[DeddyH]

Mit Format() könnte man das schon kürzer gestalten.

[SaFu]

und zwar

[DeddyH]

Delphi-Quellcode:

const BasicPathFormat = '%sVertretungspläne\%d_KW_%d';

if DirectoryExists(Format(BasicPathFormat,
                   [ExtractFilePath(ParamStr(0)),
                    YearOf(Date),
                    WeekOfTheYear(Date)])) then...

Und das dann entsprechend für das Zielverzeichnis.

[SaFu]

Es wäre z.b besser den Timer jeden montag auslösen zu lassen wie mach ich das ab besten

[DeddyH]

Wie lange soll Dein Programm denn laufen? :shock: Oder meinst Du, dass der Timer nur gestartet werden soll, wenn das Prog an einem Montag gestartet wird?

[SaFu]

nein das programm läuft 24 stunden und das ganze jahr lang

[DeddyH]

Im Timer-Ereignis könntest Du diese Zeile als erste einfügen (Unit DateUtils einbinden):

Delphi-Quellcode:

if DayOfTheWeek(now) <> DayMonday then exit;