使用资源可视化基础中的文本写入文件

Question

我正在用VB编写一些程序，我想用资源中的文件创建带有文本的txt文件。你不明白，是吗？所以，它是这样的。

 Dim path As String = "c:tempMyTest.txt" 
    ' Create or overwrite the file. 
    Dim fs As FileStream = File.Create(path)
    ' Add text to the file. 
    Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")
    fs.Write(info, 0, info.Length)
    fs.Close()

是用于创建具有某些文本的 TXT 文件的代码。但是，我需要以下内容。

 Dim fd As New FolderBrowserDialog
    fd.ShowDialog()

是我在程序中拥有的唯一功能，并且，当选择文件夹时，我需要在该文件夹中创建文件，文件名应该是 config.cfg，但是，将在所选文件夹中创建的文件中的文本应该是来自我的 txt 文件的文本，该文件位于 Recources 中。

我试过了

 Dim path As String = fd.SelectedPath 
    Dim fs As FileStream = File.Create(path)
    ' upisuje tekst u fajl 
    Dim info As Byte() = New UTF8Encoding(True).GetBytes(application.startuppath &  "....Resourcesconfig.cfg")
    fs.Write(info, 0, info.Length)
    fs.Close()

但是我在文件中得到的文本是调试程序的目录。有什么想法吗？:)

Answer 1

如果您向资源添加了文本文件，则可以尝试如下操作：

Using fbd As New FolderBrowserDialog
  If fbd.ShowDialog(Me) = DialogResult.OK Then
    File.WriteAllText(Path.Combine(fbd.SelectedPath, "config.cfg"), My.Resources.config)
  End If
End Using

我添加的文件称为config，它在我的资源库中创建了一个config.txt文件。