Открытие txt файла больше 1,5 Mb - VB

Формулировка задачи:

Доброго всем Была прога. Только сейчас заметил что открывает не весь файл. Подскажите в чем дело или другой способ. Вот таким открывает, но не все
Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = "D:\Armrups\Loto\SLoto.txt"
Open FName For Input As #FN
txtText = Input(LOF(FN), #FN)
Close #FN
Таким большие вообще не открывает, виснет
'Open App.Path & "\Loto\VLoto.txt" For Input As #1
'Do Until EOF(1)
'Line Input #1, txt
'alltxt = alltxt + txt + vbCrLf
'Loop
'Close #1
'txtText.Text = alltxt


textual

Код к задаче: «Открытие txt файла больше 1,5 Mb - VB»

Dim bs As String
Dim f As Integer
f = FreeFile
Open App.Path & "/test.txt" For Input As f
Input #f, bs
Close f
MsgBox Len(bs)
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.875 из 5

Источник