Private Sub File1_Click()
Dim strinbuf As String
Dim strprefile As String
Txtpreview.Text = ""
strpreview.Text = file.Path + "\" + file.FileName
Open strprefile For Input As #1
Do While Not EOF(1)
Line Input #1, strinbuf
Txtpreview.Text = Txtpreview.Text + strinbuf
Loop
Close #1
End Sub
这段程序谁能帮解释一下。谢谢！

strpreview.Text = file.Path + "\" + file.FileName
Open strprefile For Input As #1
Do While Not EOF(1)
Line Input #1, strinbuf
Txtpreview.Text = Txtpreview.Text + strinbuf
这个作用我是知道的，但我不明白他们具体的意思如：
Open strprefile For Input As #1
Do While Not EOF(1)
Line Input #1, strinbuf
是什么意思？怎么解释。
还望指教

谢谢