主题：新建Word

老师，能帮忙看看这个吗？ 感谢 感谢 

就是在选中行指定的路径内新建Word是那里不对呀？

Dim app As New MSWord.Application
'新建文档
Dim missing = System.Reflection.Missing.Value
Dim nDoc = App.Documents.Add(missing, missing, missing, missing)
'nDoc.SaveAs("d:\test.doc")
Dim path As String = ProjectPath & "内容_文件路径\" & e.Form.Controls("TextBox10").Text
'Dim path As String = ProjectPath & e.Form.Controls("ComboBox4").Text '不添加固定文件夹
If FileSys.DirectoryExists(path) = False
    filesys.CreateDirectory(path)
End If  '只是添加文件夹
'dr("内容_文件路径") = path & "/" & e.Form.Controls("TextBox10").Text & ".doc"
nDoc.SaveAs(path & "/" & e.Form.Controls("TextBox10").Text & ".doc")
app.quit
msgbox("添加成功")

有的 

E:\常规会议\

而且用下面这个代码也能打开，

Dim proc As new Process
proc.File = Tables("会议记录").Current("内容_文件路径").replace("[", "").replace("]", "")
proc.Start

下面的代码也能复制进去，但是就是不能新建，感谢 感谢 

Dim r As Row = Tables("会议记录").Current
If r IsNot Nothing Then
    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "文档|*.doc;*.txt;*.xls;*.BMP;*.JPG;*.JPEG;*.PNG;*.GIF" '设置筛选器
    dlg.MultiSelect = True
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        For Each f As String In dlg.FileNames
            FileSys.CopyFile (f, Tables("会议记录").Current("内容_文件路径") & "\" & FileSys.GetName(f), True)
        Next
    End If
End If

Forms("会议记录窗口").Controls("WebBrowser1").address =  Tables("会议记录").Current("内容_文件路径")

msgbox("添加成功")

感谢，老师 这个路径是是不是要加什么括号之类的 

E:\常规会议\

.NET Framework 版本：2.0.50727.8838
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,会议记录窗口,Button13,Click
详细错误信息：
不支持给定路径的格式。