Question

vb怎样将文字多次写入一指定txt文件？

第一次执行时可以，但再次点击就报错“文件已打开”，代码如下
Private Sub Command1_Click()
z = Text1.Text
Open "c:\reg\shit.txt" For Append As #1
Write #1, z
End Sub
该怎么解决？

Answer 1

Private Sub Command1_Click()
z = Text1.Text
Open "c:\reg\shit.txt" For Append As #1
Write #1, z
close #1'文件读写完毕，要关闭
End Sub

Answer 2

Private Sub Command1_Click()
z = Text1.Text
Open "c:\reg\shit.txt" For Append As #1
Write #1, z
close #1
End Sub
加一个关闭代码

Answer 3

Private Sub Command1_Click()
z = Text1.Text
Open "c:\reg\shit.txt" For Append As #1
Write #1, z
Close
End Sub
代码改成这样就可以了，就是在读写完文件之后，注意加个Close，否则文件在后台会始终处于打开状态，加个Close的目的就是关闭文件，以免出“文件已打开”的错误

Answer 4

你没有 关闭它啊！
Close #1
添加这段代码在 end sub 上面就行了