简单读取TXT文件
简单读取TXT文件
Private Sub Command1_Click()
Open "c:\\21.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Command2_Click()
Dim Lstr As String
Text1.Tag = "open"
Open "c:\\21.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Lstr
Text1.Text = Text1.Text + vbCrLf + Lstr
Loop
Close #1
End Sub