成批保存文件的问题。

[wintergoes]

怎么实现成批保存文件，就是说判断一　个文件是否存在，如存在加上一个号码对吗？

[penglc]

比如：

aa="file1.txt"

if dir(aa,vbnormal)<>"" then '如果file1.txt 已存在，则aa要换名
aa=replace(aa,"1","2")
endif

....下面就存文件吧。

[wintergoes]

没用

[笨狗先飞]

for i=0 to ******
if dir("file" & i & ".txt")<>"" then
'文件存在
...
...
else
'文件不存在
...
...
end if
next

[sworddx]

dir函数.这个函数用于判断一个文件或者文件夹是否存在。若不存在则返回空字符串；若文件存在则返回这个文件的文件名，如果一个文件夹存在则返回其中第一个文件的文件名。