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