在对话框中创建文本文件

Question

我想通过点击按钮将数据保存到文本文件中。 我通过以下代码在现有的文本文件上写。由于file.writeline函数很容易使用，我喜欢这个方法：

    Dim file As System.IO.StreamWriter
    file = My.Computer.FileSystem.OpenTextFileWriter("D:\test.txt", True)
    file.WriteLine("-------------'Input data'-------------")

但我需要一个代码来创建一个文本文件，让用户选择它的名字。我想打开一个保存对话框或类似的东西。 我怎么能这样做？

Answer 1

我假设您要创建一个文本文件，因为您在问题中混合了“创建”和“现有”。

您需要类似以下代码的内容，但您必须根据需要更改代码，例如通过向表单添加“保存”按钮。请注意并尝试根据您的需要更改以下行：

  

Dim fsOut As New FileStream（OpenFileDialog1.FileName，FileMode.Append）

Imports System.IO

Public Class Form1
  Private Sub btnOpen_Click(sender As Object, e As EventArgs) Handles btnOpen.Click

    With OpenFileDialog1
      '.DefaultExt = "txt"
      '.FileName = "test"
      .Filter = "Textfile (*.txt)|*.txt"
      .CheckFileExists = True
      .InitialDirectory = "D:\"
      '.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal)
      '.Multiselect = False
      .Title = "Select text file"
    End With

    If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
      txtFilePathName.Text = OpenFileDialog1.FileName

      Dim fsOut As New FileStream(OpenFileDialog1.FileName, FileMode.Create)
      Dim swFile As New StreamWriter(fsOut)

      swFile.WriteLine("-------------'Input data'-------------")
      swFile.Close()
    End If

  End Sub
End Class