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

[问题求助] vbs如何批量重命名指定扩展名/后缀的文件?

本帖最后由 pcl_test 于 2016-4-26 19:51 编辑

1号文件夹里面有1千个PNG图片文件,1千个TXT文件,原始文件名是1,到1000,

只针对PNG格式的文件重命名,该如何写
用VBS如何按照文件名数字顺序重命名,重命名后的文件名是0001,0002,0003,0004到1000

  1. strSrcDir = "D:\test"
  2. Set fso=CreateObject("Scripting.FileSystemObject")
  3. For i = 10001 To 11000
  4.     strSrcFile = strSrcDir & "\" & (i - 10000) & ".jpg"
  5.     strDstFile = Mid(i, 2) & ".jpg"
  6.     If fso.FileExists(strSrcFile) Then fso.GetFile(strSrcFile).Name = strDstFile
  7. Next
复制代码

TOP

我测试一下。好像没有效果

TOP

本帖最后由 Nsqs 于 2016-4-27 11:22 编辑

回复 1# mingjianko
  1. dim fso,Wsc,WshPath,Folder
  2. set fso=CreateObject("scripting.filesystemobject")
  3. Set Wsc=CreateObject("wscript.shell")
  4. WshPath=Fso.getparentfoldername(wsh.scriptfullname)
  5. Wsc.CurrentDirectory = WshPath
  6. set folder=fso.getfolder("1号")
  7. for each List in folder.files
  8. ext=fso.getextensionname(list)
  9. if ext="txt" then
  10. name=fso.getbasename(list)
  11. x=x mod 1000+10001:str_mid=mid(x,2)
  12. if name<>str_mid then _
  13. filename=str_mid&"."&ext:_
  14. list.name=filename '改名
  15. end if
  16. next
复制代码
一点基础都没有,还要写vbs,上面代码'是不执行的部分,昨天是加了'而且我明确表示是改名了
1

评分人数

    • mingjianko: 感谢,Nsqs,真心感谢Nsqs技术 + 1

TOP

是你自己不会。不要推断到别人身上。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

这个问题好像没人会啊,哈哈,

TOP

返回列表