Open App.Path & "\" & "配置.xzlove" For Output As #2
Print #2, ""
Close #2
Open App.Path & "\" & "配置.xzlove" For Append As #2
Print #2, a1
Print #2, a2
补充：是啊，我还有意图是把之前所有内容都清空。追问：我的意思那个那个 配置.xzlove文件本身是存在且是有内容的我想在调用之间先将原内容清空当然不删除文件。答案：Open App.Path & "\" & "配置.xzlove" For Output As #2
Print #2, ""
Close #2
Open App.Path & "\" & "配置.xzlove" For Append As #2
Print #2, a1
Print #2, a2原因是因为。你在第一次输出的有Print #2, ""
可以不毕先创建在输出。直接输出就创建了。
直接用下面代码就行了
Private Sub Command1_Click()
Open App.Path & "\" & "配置.xzlove" For Append As #2 '输出在根目录
Print #2, a1 '输出内容
Print #2, a2 '输出内容
Close #2 '关闭文件
End Sub
去掉前面三行试试.
你使用的这行代码:Print #2,""
其实就是输出一个空白行的意思.
希望能帮助你解决问题.
如果是清空原来所有内容的话，就不需要用Append了，直接Output就OK了。
Open App.Path & "\" & "配置.xzlove" For Output As #2
print #2,a1
print #2,a2
close #2
这样的话，不管文件里面是什么内容，都会按你新的直接写入（相当于重建文件）。
