主题：如何根据年度创建文件夹，并将文件存放到不同年度的文件夹中

说明：生成的文件，按不同年度自动生成文件夹，并将本年度的文件放在本文件夹中。例如：2019年生成的文件放在“2019年假期值班安排表”，2020年生成的文件放在自动生成2020年假期值班安排表，如何写代码，下述代码不能执行，请高手解答，谢谢。

Dim Book As New XLS.Book(ProjectPath & "Attachments\假期值班安排表.xls")  '打印

Dim r As Row = Tables("值班排班_排班").Current

Dim fl As String =" \\HRW\data\军人事务局\③值班\r("年度") &"值班表"\"& r("年度") & "-" & r("节假日名称") & "假期值班安排表" &".xls"

Dim fl As New WordReport(Tables("值班排班_排班"),tm,fl) '定义一个WordReport

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()