主题：[求助]booksavetopdf设置路径问题

我想每一个学院，生成每个学院的文件夹，并把生成的PDF文件放在其中。  比如 外语学院的所有班级PDF，放在外语学院这个文件夹里。

在selectedIndexchanged事件里面，我输入以下代码：
     Dim  a As String =e.Form.Controls("ComboBox2").text ‘获取学院名字
     For Each  s As String In DataTables("学院班级").getValues("班级名称","所在学院 = '" & a &"'")  ‘找到所在学院的班级名称
    Dim Book As New XLS.Book(ProjectPath & "Attachments\学籍卡.xls") '打开模板
    Dim fl As String = ProjectPath & "Reports\" & s & ".pdf" ‘为生成的PDF命名
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(1,9).Value = "<[班级名称] = '" & s &"'>" ‘根据获取的班级名称，写入单元格里面
    Book.Build() '生成报表
    Book.SaveToPDF(fl) ‘保存为PDF文件  
next
Dim Proc As New Process    '打开报表输出目录
Proc.File = ProjectPath & "reports"
Proc.Start()

代码红色字体部分，我想修改为：Book.SaveToPDF(a & "\" & f1)

但是老是报错，然后关也关不掉。 除了任务管理器里面强制关掉foxtable。