Dim fn As Integer
Dim but, fName As String
fName = Path & "info.txt"
fn = FreeFile
Open fName For Input As fn
Input #fn, but
Close #fh
txtInfo.Text = but
Чтение файла
Вот код
ПОчему то это код счтивает только первую строку фаила, а мне надо полностью файл. В чем дело?
Код:
ПОчему то это код счтивает только первую строку фаила, а мне надо полностью файл. В чем дело?
Считать весь файл можно так:
или так:
Код:
Open fName For Input As #1
but = Input$(LOF(1), 1)
Close #1
but = Input$(LOF(1), 1)
Close #1
или так:
Код:
Dim s As String
Open fName For Input As #1
Do Until EOF(1)
Line Input #1, s
but = IIf(but = "", s, but & vbCrLf & s)
Loop
Close #1
Open fName For Input As #1
Do Until EOF(1)
Line Input #1, s
but = IIf(but = "", s, but & vbCrLf & s)
Loop
Close #1