急！急！急！请问怎么让每次的保存递加

Question

dim i as long
for i=1 to 100
    print "a" & cstr(i) & ".txt"
next

Answer 1

dim i as long
dim path as string,newpath as string
path="c:\"
for i=1 to 100 '循环看文件是否存在，不存在时取出循环,正是下一个编号
  newpath=path & "a" & cstr(i) & ".txt"
  if(dir(newpath)="") then exit for
next
open newpath for output as #1
print #1,"test"
close #1

Answer 2

楼上的，要是文件数大于100，1000，怎么办？
建议：
1.在此次存储的时候就把a(i).text的最后一个i记录下来，放到一个单独的文件里
2.下次存储时调用上次存储的i，就不用遍历查找了。
3.把调用的i放到for的下限，上线嘛就要看你此次存储多少个了

Answer 3

O 我们也许都理解错了
LZ的意思可能是只存储一个文件，存储一次就加1
这就好办了
只是在存储前取得原文件的i，取得原文件的i可用Mid(2,1)(因为你的文件名是标准格式的，也最好是标准格式的)，再Kill原文件，再存储（i+1）即可