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

小編給大家分享一下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如何批量重命名文件并且操作前備份原有文件”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！