应用程序资源中文件的文件路径（作为字符串）是什么？

Question

我问的原因是我想在运行时打印应用程序资源中的一个文件，如下所示：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim printProcess As New Process
printProcess.StartInfo.CreateNoWindow = True
printProcess.StartInfo.FileName = "C:\Users\Geoffrey van Wyk\Documents\Countdown_Timer_Help.rtf"
printProcess.StartInfo.FileName = My.Resources.Countdown_Timer_Help
printProcess.StartInfo.Verb = "Print"
printProcess.Start()
End Sub 

当我使用“C:\Users\Geoffrey van Wyk\Documents\Countdown_Timer_Help.rtf”作为 FileName 的参数时，它可以工作。但是当我使用 My.Resources.Countdown_Timer_Help 时，它说找不到文件。

Answer 1

好的，我明白了。

System.IO.Path.GetFullPath(Application.StartupPath & "\..\..\Resources\") & "Countdown_Timer_Help.rtf"

Answer 2

不，您没有得到它，该文件只会出现在您的开发机器上。部署程序后，该文件将嵌入到您的程序中并且无法打印。您必须编写将文件从资源保存到磁盘的代码，然后将其打印出来。例如：

  Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
    Dim path As String = Application.UserAppDataPath
    path = System.IO.Path.Combine(path, "Help.rtf")
    System.IO.File.WriteAllText(path, My.Resources.Countdown_Timer_Help)
    Dim printProcess As New Process
    printProcess.StartInfo.CreateNoWindow = True
    printProcess.StartInfo.FileName = path
    printProcess.StartInfo.Verb = "Print"
    printProcess.Start()
  End Sub

鉴于您必须将资源保存到文件中，将文件与您的应用一起部署可能更有意义，而不是将其作为资源嵌入并一遍又一遍地写入磁盘。使用 Application.ExecutablePath 来定位文件。要在调试时进行这项工作，您必须将文件复制到 bin\Debug。为此，请使用 Project + Add Existing Item 将文件添加到您的项目，并将 Copy to Output Directory 属性设置为 Copy if Newer。