StreamWriter оставляет файл, даже если он не сохранен

Question

У меня есть этот код для записи некоторых данных из текстовых полей в текстовый файл. И я использую streamwriter для этого. Здесь вы можете увидеть код:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
     Dim Save As New SaveFileDialog() 
     Dim myStreamWriter As System.IO.StreamWriter 
     Save.Filter = "Text [*.txt*]|*.txt|All Files [*.*]|*.*" 
     Save.CheckPathExists = True 
     Save.Title = "Export & Save - FNG" 
     Save.FileName = txtTitle.Text & " - Plugs Details File Exported" 
     Save.ShowDialog(Me) 
     Try 

      myStreamWriter = System.IO.File.AppendText(Save.FileName) 
      myStreamWriter.Write("Details of Plugs:" & Environment.NewLine & txtDetails.Text & Environment.NewLine & DateAndTime.Now) 
      myStreamWriter.Flush() 
     Catch ex As Exception 
     End Try 


    End Sub 

Код действительно работает, он также сохраняет детали в текстовый файл. Но проблема в том, что когда я отменяю диалог сохранения файла (без сохранения текстового файла), он создает файл в пути запуска приложения. Почему это происходит? Что я делаю не так? Как это исправить?

Answer 1

Попробуйте

If Save.ShowDialog(Me) <> DialogResult.Ok Then Return 

Отмена диалоговое окно автоматически не делает ваш Sub вернуться!

Кроме того, вы используете StreamWriter неправильно. Используйте

Using myStreamWriter As System.IO.StreamWriter = System.IO.File.AppendText(Save.FileName) 
     myStreamWriter.Write("Details of Pish flaps:" & Environment.NewLine & txtDetails.Text & Environment.NewLine & DateAndTime.Now) 
End Using 

И удалить Dim из StreamWriter. Это гарантирует, что StreamWriter будет закрыт, даже если выбрано исключение.