最好能详细一点
1.首先判断程序路经中是否有此问件(aaa.txt),没有,创建;有,打开
2.在文件的末尾追加字符串
3.关闭文件
If Dir("C:\aaa.txt") = "" Then 不存在
Open "C:\aaa.txt" For Output As #1 以创建的方式打开
Else
Open "C:\aaa.txt" For Append As #1 以追加的方式打开
End If
Print #1, "写数据"
Close #1