Прерывания кода vb.net после OpenTextFileWriter

113
16

Извините за плохой титул, но я не знаю, как кратко описать мою проблему.

Когда я запускаю приложение. Он не записывал текст в файл. Я добавил MessageBox, чтобы увидеть, где код прерывается. MsgBox 1 и 2 показаны, но 3 нет. Таким образом, код прерывается после:

file = My.Computer.FileSystem.OpenTextFileWriter("C:\text.txt", True)

Почему это?

Form1.vb:

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim main As New Main()
Call main.Main()
End Sub
End Class

Main.vb:

Public Class Main
Sub Main()
MessageBox.Show("1")
Dim file As System.IO.StreamWriter
MessageBox.Show("2")
file = My.Computer.FileSystem.OpenTextFileWriter("C:\text.txt", True)
MessageBox.Show("3")
file.WriteLine("Text")
file.Close()
End Sub

спросил(а) 2021-01-19T20:33:06+03:00 9 месяцев, 1 неделя назад
1
Решение
79

Я бы порекомендовал использовать файл try.catch statetement..not для получения вашей ошибки, он поймает вашу проблему с причиной; например: если файл не существует;

Public Class Main
Sub Main()
Dim file As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("C:\text.txt", True)
Try

file.WriteLine("Text")

Catch ex As Exception

MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Finally
File.Close()

End Try
End Sub

End Class

ответил(а) 2021-01-19T20:33:06+03:00 9 месяцев, 1 неделя назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема