可以，看我的代码，可以参考
Private Sub Command1_Click()
Open "f:/1.txt" For Append As #1
Print #1, Text1
Close #1
End Sub
Private Sub Command2_Click()
Open "f:/1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, word
Print word
s = s + 1
Loop
Close #1
Print "共" & s & "行"
End Sub
http://hi.baidu.com/yhpp521/blog/item/56a723f50291df25bc31099a.html
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024