[问题求助] （已解决）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&"个文件被复制并重命名"

pcl_test

创建以当前日期时间命名的文件夹

getdate = year(now) & right("0" & month(now),2) & right("0" & day(now),2)
gettime = right("0" & hour(now),2) & right("0" & minute(now),2) & right("0" & second(now),2)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder getdate&gettime
复制代码

erjnasrtnws

回复 1# renlengxin


   谢谢了  可否提供个一样功能的批处理代码！！！






做为一名论坛新人，不敢在坛里大声说话，也不敢得罪人，只能默默地顶完贴然后转身就走人。动作要快，姿势要帅，深藏功与名。