因为楼上的把文件作为随机存取文件打开,然后用写入顺序存取文件的语句写入,所以出错了。 Private Sub Command1_Click() Open "c:\1.txt" For Output As #1 Print #1, Text1.Text; Close #1 End Sub 改成这样就可以了。本回答被网友采纳
第3个回答 2013-11-11
---保存文件 open "c:\1.txt" for random as #1 print #1,text1.text close #1
'==读取文件. Open "c:\1.txt" For Input As #1 Text1.Text = Input(LOF(1), 1) Close #1