VB生成的问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 16:44:14
Private Sub Command1_Click()
MsgBox ("生成成功路径是C盘根目录")
Open "C:\1112.asp" For Append As #15
当我在点机生成的时候 他还是把文件生成在
这个已经存在的1112.asp中
我现在想把在生成的文件 让他变成1113.asp
这样 一此类推如何修改
要详细的
把我最后的25分都给他

For Append 是指在 C:\1112.asp 文件末尾追加

要想 生成 C:\1113.asp 就需要个计数变量了
每生成一次计数变量加1

如这样写

MsgBox ("生成成功路径是C盘根目录")
Open "C:\"+Format(NextFileNum,"0000")+".asp" For Append As #15
NextFileNum=NextFileNum+1

另外 NextFileNum 定义为全局变量
在窗体Form_Load中给他赋个初值，如果每次程序运行都从固定的数值开始可以直接给NextFileNum赋值，比如NextFileNum=1112，生成的文件就是1112.asp、1113.asp、1114.asp…… 否则还要建个文件存一下，每次给NextFileNum赋的初值都是从文件里读出来的