< 返回技术文档列表

VBS如何批量重命名文件并且操作前备份原有文件

发布时间:2021-11-07 00:10:34

小编给大家分享一下VBS如何批量重命名文件并且操作前备份原有文件,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

核心函数

'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0'' NAME: '' AUTHOR: Microsoft , Microsoft' DATE : 2014/7/9'' COMMENT: '批量修改文件夹下对应的所有文件名''=========================================================================='选择我的电脑作为根目录,来选择目录Const MY_COMPUTER = &H11&Const WINDOW_HANDLE = 0Const OPTIONS = 0Set objShell = CreateObject("Shell.Application")Set objFolder = objShell.Namespace(MY_COMPUTER)Set objFolderItem = objFolder.SelfstrPath = objFolderItem.PathSet objShell = CreateObject("Shell.Application")Set objFolder = objShell.BrowseForFolder _(WINDOW_HANDLE, "Select a folder:", OPTIONS, strPath)If objFolder Is Nothing ThenWscript.QuitEnd IfSet objFolderItem = objFolder.SelfobjPath = objFolderItem.Path'MsgBox objFolderItem.name'==================================================================='选择指定盘符下的目录' Const WINDOW_HANDLE = 0' Const OPTIONS = 0' ' Set objShell = CreateObject("Shell.Application")' Set objFolder = objShell.BrowseForFolder _' (WINDOW_HANDLE, "Select a folder:", OPTIONS, "C:\")' ' If objFolder Is Nothing Then' Wscript.Quit' End If' ' Set objFolderItem = objFolder.Self' objPath = objFolderItem.Path' ' MsgBox objPath'========================================================================='定义变量dim file_path,prefix_name,suffix_name,repeat_name,repeat_editDim OneLine,TwoLine,ThreeLine,FourLine,FiveLinei=0test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path'Wscript.echo testfilepath=test&"\config.ini"'WScript.Echo filepath' file_path = "C:\Users\Administrator\Desktop\1\music"'目标文件夹的路径dst_file_path="C:\"&objFolderItem.name&"_bak"file_path=objPath'-----得到文件夹路径,且打开配置文件Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.getfolder(file_path) Set fs = folder.filesSet file=fso.OpenTextFile(filepath,1)'----------------在操作前,备份一下原有的文件fso.CopyFolder file_path,dst_file_path,True'----------------------------------'取出第一行中的两个数OneLine=file.ReadLineOneLineStr=Split(OneLine,"=")OneLineCount=UBound(split(OneLine,"="))For i1=0 To OneLineCount'WScript.Echo OneLineStr(i1)Next '-------------------------------------'取出第二行中的两个数TwoLine=file.ReadLineTwoLineStr=Split(TwoLine,"=")TwoLineCount=UBound(split(TwoLine,"="))For i2=0 To TwoLineCount'WScript.Echo TwoLineStr(i2)Next '-------------------------------------------'取出第三行中的两个数ThreeLine=file.ReadLineThreeLineStr=Split(ThreeLine,"=")ThreeLineCount=UBound(split(ThreeLine,"="))For i3=0 To ThreeLineCount'WScript.Echo ThreeLineStr(i3)Next '-------------------------------------------'取出第四行中的两个数FourLine=file.ReadLineFourLineStr=Split(FourLine,"=")FourLineCount=UBound(split(FourLine,"="))For i4=0 To FourLineCount'WScript.Echo FourLineStr(i4)Next'-----------------------------------------'取出第五行中的两个数FiveLine=file.ReadLineFiveLineStr=Split(FiveLine,"=")FiveLineCount=Ubound(split(FiveLine,"="))For i5=0 To FiveLineCount'WScript.Echo FiveLineStr(i5)Next '---------------------------------------------'调用过程'Function_Main()Function Function_Main()If OneLineStr(1)="true" ThenFunction_Prefix_Name()Elseif OneLineStr(1)="false" ThenFunction_Suffix_Name()Elseif OneLineStr(1)="number" ThenFunction_Number_Value()Elseif OneLineStr(1)="array" ThenFunction_MyArrayReName()Elseif OneLineStr(1)="" ThenWScript.QuitEnd IfEnd Function '-----------------------------------------'在原有名称前增加前缀Function Function_Prefix_Name()For Each file in fsFile.Name=TwoLineStr(1)&File.NameNextEnd Function'--------------------------------------'在原有名称前增加后缀Function Function_Suffix_Name()For Each file in fsName=Mid(file.name,1,instrrev(file.name,".")-1) '取到.号前面的文件名Format=Mid(file.name,instrrev(file.name,".")) '取到.号后面的后缀格式file.Name=Name&ThreeLineStr(1)&FormatNextEnd Function'--------------------------------------------'在原有名称前增加有序自增数字Function Function_Number_Value()For Each file In fsFourLineStr(1)=FourLineStr(1)+1file.name=FourLineStr(1)&file.nameNextEnd Function 'Function_Suffix_Name()'--------------------------------------------------'批量更改文件名称Function Function_MyArrayReName()Const BeforAlarm="发生犯人暴狱,请注意观察"Const AfterAlarm="发生犯人暴狱,各小组按预案处置"Dim MyArray(12)n=1y=0For i=0 To 12If i=11 Then MyArray(i)="监门哨"Elseif i=12 Then MyArray(i)="自卫哨"Else MyArray(i)=n&"号哨"n=n+1End If ' WScript.Echo MyArray(i)Next For Each file In fsFormat=Mid(file.name,instrrev(file.name,".")) 'MsgBox Format'MsgBox MyArray(y)If FiveLineStr(1)="before" Then file.name=MyArray(y)&BeforAlarm&FormatElseif FiveLineStr(1)="after" Then file.name=MyArray(y)&AfterAlarm&FormatElse MsgBox "请先设置是确认前还是确认后!",,"提示"WScript.QuitEnd If y=y+1'WScript.Echo file.nameNextEnd Function '=======================================================================' If prefix_name <> "" then'批量加前缀' For each f in fs' f.name = prefix_name&f.name' Next' End If' ' if suffix_name <> "" then'批量加后缀' For each f in fs' name = Mid(f.name,1,InstrRev(f.name,".")-1)' format = Mid(f.name,InstrRev(f.name,"."))' f.name = name & suffix_name & format' Next' end If' ' if repeat_name <> "" then'批量删除相同字符' For each f in fs' On Error Resume Next ' f.name = Replace(f.name,repeat_name,repeat_edit)' Next' end If' '-----文件操作结束' ' set fso = nothing'释放内存' ' MsgBox("完成!")

需用用到配置文件

config.ini文件内容:statue=prefix_name=[320kbp]suffix_name=[结束]i=20140100array=

参数配置使用方法:

statue=true时为增加前缀statue=false时为增加后缀statue=number 时为增加有序自增数字。statue=array 为调用数组函数statue=空值时为空,不作处理,退出脚本操作。array=before时,设置为确认前。array=after时,设置为确认后。array=空时,弹出提示信息,退出脚本操作。

以上是“VBS如何批量重命名文件并且操作前备份原有文件”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注血鸟云行业资讯频道!


/template/Home/Zkeys/PC/Static