[问题求助] （已解决）VBS如何实现复制同名文件自动更名不覆盖？

renlengxin

新建一个复制并重命名的VBS，文件从\\Pc-201601052137\d\分割  中复制到D:\123  后修改文件名 文件名依次递增
现在的问题是当第二次运行批处理后第一次复制过来的文件会被覆盖，
如何修改代码使其每次运行后，新文件都保存在一个以时间为单位的新文件夹内呢
或者怎么修改可以实现多次运行脚本后产生的文件互不影响？
如：第一次运行后的产生的文件为1.CSV 第二次运行后的产生的文件为2.CSV而不是互相覆盖
on error resume next
dim k
k=0
set fso=createobject("scripting.filesystemobject")
set f=fso.getfolder("\\Pc-201601052137\d\分割")
fso.createfolder("D:\123")
set fs=f.files
for each f1 in fs
if instr(f1,".csv")<>0 then
  k=k+1
   fso.copyfile f1,"D:\123\"&k&".csv"
end if
next
msgbox "处理完成，总共"&k&"个文件被复制并重命名"