小编给大家分享一下根据如何批量重命名文件并且操作前备份原有文件,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获、下面让我们一起去了解一下吧!
核心函数
& # 39;==========================================================================& # 39; & # 39;VBScript源文件,创建技术智慧PrimalScript 4.0 & # 39; & # 39;名称:& # 39;& # 39;作者:微软,微软# 39;日期:2014/7/9& # 39;& # 39;备注:& # 39;批量修改文件夹下对应的所有文件名& # 39;& # 39;==========================================================================& # 39;选择我的电脑作为根目录,来选择目录Const MY_COMPUTER=, H11& Const WINDOW_HANDLE=0 Const选项=0设置objShell=CreateObject (“Shell.Application")设置objFolder=objShell.Namespace (MY_COMPUTER)设置objFolderItem=objFolder。SelfstrPath=objFolderItem。PathSet objShell=CreateObject (“Shell.Application")设置objFolder=objShell。BrowseForFolder _ (WINDOW_HANDLE,“选择一个文件夹:“,选择,strPath)如果objFolder ThenWscript。QuitEnd IfSet objFolderItem=objFolder。SelfobjPath=objFolderItem.Path& # 39;对话框objFolderItem.name& # 39;===================================================================& # 39;选择指定盘符下的目录& # 39;Const WINDOW_HANDLE=0 & # 39;Const选项=0 & # 39;& # 39;设置objShell=CreateObject (“Shell.Application") & # 39;设置objFolder=objShell。BrowseForFolder _ # 39;(WINDOW_HANDLE,“选择一个文件夹:“,选择,“C: \“) & # 39;& # 39;如果objFolder是什么然后# 39;Wscript.Quit& # 39;最后如果# 39;& # 39;设置objFolderItem=objFolder.Self& # 39;objPath=objFolderItem.Path& # 39;& # 39;对话框objPath& # 39;=========================================================================& # 39;定义变量暗淡的file_path prefix_name, suffix_name, repeat_name, repeat_editDim>以上是“根据如何批量重命名文件并且操作前备份原有文件”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注行业资讯频道!
