Dim iow As New System.IO.FileStream( _
"<путь>", _
IO.FileMode.Create)
Dim sw As New System.IO.StreamWriter(iow)
Try
sw.WriteLine("любой текст")
sw.Close()
iow = Nothing
sw = Nothing
MsgBox("Файл записан!")
Catch ep As Exception
Debug.WriteLine("Ошибка записи: " + ep.Message)
End Try
Dim ios As New System.IO.FileStream( _
"<путь>", _
IO.FileMode.Open)
Dim sr As New System.IO.StreamReader(ios)
Try
Do Until sr.Peek = -1
MsgBox(sr.ReadLine)
Loop
sr.Close()
sr = Nothing
ios = Nothing
MsgBox("Файл прочтен!")
Catch ex As Exception
MsgBox("Ошибка чтения: " + ex.Message)
End Try
Вернуться в Visual Basic для мобильных устройств
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6