主题：新建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("添加成功")