Question

vbs拷贝指定文件并重命名

set fso=createobject("scripting.filesystemobject")
do
fso.copyfile "D:\*.txt","F:\bak\*.txt"

wscript.sleep 1000*60*1
loop

这一串代码已经实现拷贝,现在需要才这个过程中添加语句,在拷贝文件之后,将其命名为"n.txt", 其中 n 为变量,并且每次执行后自增量为 1.
fso.copyfile "D:\*.txt","F:\bak\"n".txt"可以实现直接命名,但如何实现 n 变量的自增?

3楼的语句未结束~~~~我一直被这个问题困惑,定义变量的格式不对?

Answer 1

set fso=createobject("scripting.filesystemobject")
dim filename1 ,filename2 as string
i=1
do
filename1="d:\" & i & ".txt"
filename2="F:\bak\" & i & ".txt"
fso.copyfile filename1,filename2
i=i+1
wscript.sleep 1000*60*1
loop

Answer 2

fso.copyfile "D:\*.txt","F:\bak\*.txt"
这句改为：fso.copyfile "D:\*.txt","F:\bak\n.txt"

Answer 3

用name或filecopy命令