主题：发布项目后，添加目录失效问题

 用代码自己创建即可：

If filesys.FileExists( ProjectPath & "TempFiles") = False Then
    FileSys.CreateDirectory( ProjectPath & "TempFiles")
End If
Dim dr As DataRow = e.Table.Current.DataRow
Dim fl As String =  ProjectPath & "TempFiles\" & Rand.NextString(6) & dr("附件名称")
If dr.SQLLoadFile("附件内容",fl) Then '如果提取文件成功
    Dim Proc As New Process '打开文件
    Proc.File = fl
    Proc.Start()
Else
    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If