批处理之家 - Powered by Discuz! Board

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

作者: renlengxin 时间: 2016-1-6 11:51 标题: （已解决）VBS如何实现复制同名文件自动更名不覆盖？

本帖最后由 renlengxin 于 2016-1-6 20:17 编辑

新建一个复制并重命名的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 时间: 2016-1-6 12:48

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

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 时间: 2016-1-7 08:14

回复 1# renlengxin

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

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

欢迎光临批处理之家 (http://bathome.net./)