Open App.Path & "\1.txt" For Append As #1 'Append是追加,如果只要一次性写入覆盖前面的内容就用Output
Print #1, liebiao
Close #1

每次写入一条信息  不想让1.txt里面 无限存储数据
我只想让 1.txt里面显示10条信息  如果超出10条就从第一条开始替换 循环  应该如何实现？？？