VB读写TXT文件

Private   Sub  Command1_Click()  ' 读文件
Open  " d:a.txt "   For   Input   As  # 1  
Dim  Lines  As   String
Dim  NextLine  As   String
Dim  i  As   Integer

Do   While   Not   EOF ( 1 )
     On   Error   Resume   Next
    Line  Input  # 1 , NextLine
    Lines  =  Lines  &  NextLine  &   Chr ( 13 )  &   Chr ( 10 )
Loop

Close # 1
Text1.Text  =  Lines
End Sub

Private   Sub  Command2_Click()  ' 写文件
Open  " d:a.txt "   For  Output  As  # 1
Print  # 1 , Text1.Text
Close # 1
End Sub

' 如果要处理的是程序目录所在的a.txt那么应该是这样写：
' Open app.path+"/a.txt" For Input As #1