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

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

核心函数

=====================================================================" VBScript源文件-使用SAPIEN Technologies PrimalScript 4.0创建" "姓名： " "作者： Microsoft，Microsoft ' DATE : 2014/7/9 ' ' COMMENT: '批量修改文件夹下对应的所有文件名''=========================================================================='选择我的电脑作为根目录，来选择目录const MY _ COMPUTER=h11 const WINDOW _ HANDLE=0 const OPTIONS=0 set Objshell=createObject(' Shell .应用程序)设置objFolder=objShell .命名空间(我的电脑)设置objFolderItem=objFolder .SelfstrPath=objFolderItem .路径集Objshell=createObject(' Shell .应用程序)设置objFolder=objShell .browsefforfolder _(WINDOW _ HANDLE ')选择一个文件夹' : '，OPTIONS，strPath)如果objFolder为没什么，则为Wscript .QuitEnd IfSet Objfolderitem=Objfolder .SelfobjPath=objFolderItem .路径“msgbox objfolderitem”。' name '================================================================================================选择指定盘符下的目录Const WINDOW _ HANDLE=0 ' Const OPTIONS=0 ' ' Set Objshell=createObject(' Shell .应用程序')'设置objFolder=objShell . browsefforfolder _ '(WINDOW _ HANDLE ')选择一个文件夹' : '，OPTIONS，' C:\ ')"如果objFolder什么都不是，那么“Wscript .退出"结束如果"设置对象文件夹Self' objPath=objFolderItem .路径' ' MSgbox Objpath '========================================================================================================定义变量dim文件路径，前缀_姓名，后缀_name，repeat_name，repeat_editDim单线，双线，三线，四线，五线I=0测试=createobject(' Scripting . filestystemobject ').GetFile(Wscript .脚本全名。).父文件夹。路径“Wscript”。回应测试文件路径=test ' \ config。ini ' ' Wscript .回声文件路径file _ path=' C: \用户\管理员\桌面\ 1 \音乐'目标文件夹的路径dst _ file _ path=' c : ' ObjFolderitem。name ' _ bak ' file _ path=Objpath '-得到文件夹路径，且打开配置文件设置fso=CreateObject('Scripting .文件系统对象)设置文件夹=fso.getfolder(file_path)设置fs=folder.filesSet文件=fso .OpenTextFile(文件路径，

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如何批量重命名文件并且操作前备份原有文件”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注行业资讯频道！