主题：[求助]如何动态命名保存的报表

根据日期编制一string，用这个string做为文件名。

Dim bh As String = "a" & Format(Date.Today(),"yyMMdd") '取得编号的8位前缀

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表

If FileSys.DirectoryExists("E:\MyFolder") Then '如果目录C:\MyFolder存在
    doc.SavePDF("E:\MyFolder\bh.PDF")
Else
    FileSys.CreateDirectory("E:\MyFolder")
    doc.SavePDF("E:\MyFolder\bh.PDF")
End If

结果是：bh.PDF

不是预期的a160118.PDF

代码要怎么写才正确？

谢红袍神来之手！