想要把控件textbox： "TB代号"  的值作为生成新excel表格的名称，该如何做，字符如何连接，恕我愚钝，请老师指导

Dim Book As New XLS.Book(ProjectPath & "Attachments\\机械管理使用情况表.xls")   ’这是模板
Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim fl As String = ProjectPath & "                机械管理使用情况表.xls"      ’请问这里该怎么写才能把textbox的value作为新文件的名字？？
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

Dim fl As String = ProjectPath & dh.value & ".xls"

如何保存文件时再添加一个以年份为名字的文件夹呢，怎么加都不对，请老师指正

Dim d1 As Date = Date.Today
Dim fl As String = ProjectPath  & d1.year & \\ & dh.value & ”.xls"

请问：

Dim d1 As Date = Date.Today
1、如何创建以当前年份为名的的文件价，我看帮助都是直接输入路径所以不知道怎么改；

  FileSys.CreateDirectory("C:\\MyFolder")

2、如何把文件放进该文件夹里，由于是动态的 ”d1.year” 每年不一样，所以路径该怎么表示？

请老师们教一下我这个笨小孩

非常感谢老师，就是这个，格式了解不够全面，又涨知识了，还有一点请教一下：

Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim d1 As Date = Date.Today

Dim  Book As New XLS.Book(ProjectPath  & d1.year & "\\" & dh.value & "机械管理使用情况表.xls" )

在已经生成了该文件后，引用该地址时该表达式似乎有问题，找不到存储位置，在保存后调用该文件夹里文件时地址该怎么写？

某窗口的按钮click事件中，首先用此方法生成以年份为名的文件夹存放以代号为名的excel表格：

Dim Book As New XLS.Book(ProjectPath & "Attachments\\机械管理使用情况表.xls")
Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim d1 As Date = Date.Today
Dim fl As String = ProjectPath & d1.year & "\\" & dh.value & "机械管理使用情况表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

再次打开窗口时afterload事件，希望窗口中的table能读取该地址的excel表格：

Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim d1 As Date = Date.Today

Dim  Book As New XLS.Book(ProjectPath  & d1.year & "\\" & dh.value & "机械管理使用情况表.xls" )  

’原本直接引用某表地址时可运行，改为该代码后就出现：

.NET Framework 版本：2.0.50727.7905
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,机械管理记录导入窗口,AfterLoad
详细错误信息：
打开存储文件失败。

Dim  Sheet As XLS.Sheet = Book.Sheets("机械使用情况表")