Главная страницаОбратная связьКарта сайта

Быстрое чтение файла 2



Private Sub cmdOpen_Click()
On Error GoTo OpenError
fnum = FreeFile
Open txtFileName For Input As fnum
txt = Input$(LOF(fnum), #fnum)
Close fnum
txtFileText = txt
Exit Sub

OpenError:
MsgBox "Error " & Format$(Err.Number) & _
" opening file." & vbCrLf & _
Err.Description
Exit Sub
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Быстрое чтение файла 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info