Question

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

 Dim path As String = "c:\temp\MyTest.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 &  "\..\..\Resources\config.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文件。

使用资源visual basic中的文本编写文件

1 个答案: