需要引用内容文件的目录
Need to Refer to the Directory of a Content File
在我的项目中,我添加了一个 .docx 文件,该文件将使用邮件合并从程序创建的 table 创建信件。在所有处理结束时,我希望自动打开文件,以及 link 到新数据。为此,程序需要知道在哪里可以找到 .docx 文件。这就是为什么我将文件添加到项目并将生成操作设置为始终复制的原因。
我知道在调试时在哪里可以找到它,但我无法对该路径进行硬编程,因为当我将应用程序部署到我的主计算机时它不起作用。
我在想必须有一个变量来引用 'content' 文件所在的目录,以便在构建项目后目录引用仍然有效。有谁知道这已经完成了吗?
Dim w As New Word.Application
Dim Path As String = "C:\Users\lholk\Documents\Visual Studio 2015\Projects\RenewalLetter2\RenewalLetter2\StandardLetter.docx"
Debug.Print(Path)
w.Documents.Open(Path)
w.Visible = True
给你...
Dim sEXEFolder As String = IO.Directory.GetParent(Application.ExecutablePath).ToString
请注意,您可能无法修改 EXE 路径上的文件。最好建立一个已知的地方来存储您的参考文档。
在我的项目中,我添加了一个 .docx 文件,该文件将使用邮件合并从程序创建的 table 创建信件。在所有处理结束时,我希望自动打开文件,以及 link 到新数据。为此,程序需要知道在哪里可以找到 .docx 文件。这就是为什么我将文件添加到项目并将生成操作设置为始终复制的原因。
我知道在调试时在哪里可以找到它,但我无法对该路径进行硬编程,因为当我将应用程序部署到我的主计算机时它不起作用。
我在想必须有一个变量来引用 'content' 文件所在的目录,以便在构建项目后目录引用仍然有效。有谁知道这已经完成了吗?
Dim w As New Word.Application
Dim Path As String = "C:\Users\lholk\Documents\Visual Studio 2015\Projects\RenewalLetter2\RenewalLetter2\StandardLetter.docx"
Debug.Print(Path)
w.Documents.Open(Path)
w.Visible = True
给你...
Dim sEXEFolder As String = IO.Directory.GetParent(Application.ExecutablePath).ToString
请注意,您可能无法修改 EXE 路径上的文件。最好建立一个已知的地方来存储您的参考文档。