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", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!