[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

评分人数

创建以当前日期时间命名的文件夹
  1. getdate = year(now) & right("0" & month(now),2) & right("0" & day(now),2)
  2. gettime = right("0" & hour(now),2) & right("0" & minute(now),2) & right("0" & second(now),2)
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4. fso.CreateFolder getdate&gettime
复制代码
1

评分人数

TOP

回复 1# renlengxin


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






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

TOP

返回列表