Dim i As Integer
Private Sub command1_click()
i = i + 1
Open "c:\1.txt" For Append As #1
Print #1, i
Close #1
End Sub 其实你想问的就是,在文件末尾追加内容,对吧?仔细观察我的语句,使用的是Open ...... Append ....而不是Output哦.Append的意思是追加内容而Output的意思是输出内容,会带覆盖效果哦.
Open "1.txt" For Output As #1
For i = 1 To 10
Print #1, Trim(i)
Next i
Close #1
无聊。浪费精力。。还不如用ini做配置信息。。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024