我想每一个学院，生成每个学院的文件夹，并把生成的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。