Создание текстовых файлов не работает

Question

Это, вероятно, вопрос, который многие из вас уже видели пару раз, но я действительно отчаянный, поскольку каждое решение, которое я нашел в Интернете, работает неправильно.

Я хочу создать простой .txt-файл. Мой код атм:

Public Class Form3 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     If TextBox1.Text = "" Then 
      MessageBox.Show("Your world needs a name") 
     Else 
      Dim file As System.IO.StreamWriter 
      file = My.Computer.FileSystem.OpenTextFileWriter("c:\test.txt", True) 
      file.WriteLine("Here is the first string.") 
      file.Close() 
     End If 
    End Sub 
End Class 

Так как вы можете видеть, файл должен быть создан при нажатии кнопки и когда есть текст в текстовом поле.

Не работает ли программа или я искал файл в неположенном месте? Спасибо, что в авансе!

Answer 1

Попробуйте этот код также может быть использован

Public Class Form3 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If TextBox1.Text = "" Then 
     MessageBox.Show("Your world needs a name") 
    Else 
     Dim file As System.IO.StreamWriter 
     file = My.Computer.FileSystem.OpenTextFileWriter(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "test.txt"), True) 
     file.WriteLine("Here is the first string.") 
     file.Close() 
    End If 
End Sub 

Answer 2

Что-то вроде этого:

Public Class Form3 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     If TextBox1.Text = "" Then 
      MessageBox.Show("Your world needs a name") 
     Else 
      Using file As New StreamWriter("c:\test.txt", True) 
       file.WriteLine("Here is the first string.") 
       file.Close() 
      End Using 
     End If 
    End Sub 
End Class