怎么样才能调出txt文档

来源：百度知道 编辑：UC知道 时间：2024/07/01 06:21:01
用vb打开一个txt文档 ,我需要代码
谢谢

Private Sub Command1_Click()
Dim a As String
Dim b As String
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
b = b + a + Chr(13) + Chr(10)
Text1.Text = b '在text1中显示其内容
Loop
Close #1
End Sub

你笨啊
开始