ShellTreeView und Ordner Selektieren

[marabu]

Hallo Sascha,

probiere es so:

Delphi-Quellcode:

uses
  DateUtils;

var
  dt: TDateTime;
begin
  dt := Now;
  with ShellTreeView do
    Path := IncludeTrailingPathDelimiter(Root) + Format('%.4d_KW_%d', [YearOf(dt), WeekOf(dt)]);
end;

Wenn du die Wochenzahl zweistellig mit führender Null haben willst, dann kannst du %.2d als Formatangabe verwenden.

Grüße vom marabu