VBS如何批量重命名文件并且操作前備份原有文件-創(chuàng)新互聯(lián)

小編給大家分享一下VBS如何批量重命名文件并且操作前備份原有文件，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

目前創(chuàng)新互聯(lián)公司已為上千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬空間、網(wǎng)站托管、服務(wù)器租用、企業(yè)網(wǎng)站設(shè)計、靖遠網(wǎng)站維護等服務(wù)，公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

核心函數(shù)

'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0'' NAME: '' AUTHOR: Microsoft , Microsoft' DATE : 2014/7/9'' COMMENT: '批量修改文件夾下對應(yīng)的所有文件名''=========================================================================='選擇我的電腦作為根目錄，來選擇目錄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'----------------------------------'取出第一行中的兩個數(shù)OneLine=file.ReadLineOneLineStr=Split(OneLine,"=")OneLineCount=UBound(split(OneLine,"="))For i1=0 To OneLineCount'WScript.Echo OneLineStr(i1)Next '-------------------------------------'取出第二行中的兩個數(shù)TwoLine=file.ReadLineTwoLineStr=Split(TwoLine,"=")TwoLineCount=UBound(split(TwoLine,"="))For i2=0 To TwoLineCount'WScript.Echo TwoLineStr(i2)Next '-------------------------------------------'取出第三行中的兩個數(shù)ThreeLine=file.ReadLineThreeLineStr=Split(ThreeLine,"=")ThreeLineCount=UBound(split(ThreeLine,"="))For i3=0 To ThreeLineCount'WScript.Echo ThreeLineStr(i3)Next '-------------------------------------------'取出第四行中的兩個數(shù)FourLine=file.ReadLineFourLineStr=Split(FourLine,"=")FourLineCount=UBound(split(FourLine,"="))For i4=0 To FourLineCount'WScript.Echo FourLineStr(i4)Next'-----------------------------------------'取出第五行中的兩個數(shù)FiveLine=file.ReadLineFiveLineStr=Split(FiveLine,"=")FiveLineCount=Ubound(split(FiveLine,"="))For i5=0 To FiveLineCount'WScript.Echo FiveLineStr(i5)Next '---------------------------------------------'調(diào)用過程'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'--------------------------------------------'在原有名稱前增加有序自增數(shù)字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="發(fā)生犯人暴獄，請注意觀察"Const AfterAlarm="發(fā)生犯人暴獄，各小組按預(yù)案處置"Dim MyArray(12)n=1y=0For i=0 To 12If i=11 Then MyArray(i)="監(jiān)門哨"Elseif i=12 Then MyArray(i)="自衛(wè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 "請先設(shè)置是確認前還是確認后!",,"提示"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' '-----文件操作結(jié)束' ' set fso = nothing'釋放內(nèi)存' ' MsgBox("完成！")

需用用到配置文件

config.ini文件內(nèi)容：statue=prefix_name=[320kbp]suffix_name=[結(jié)束]i=20140100array=

參數(shù)配置使用方法：

statue=true時為增加前綴statue=false時為增加后綴statue=number 時為增加有序自增數(shù)字。statue=array 為調(diào)用數(shù)組函數(shù)statue=空值時為空，不作處理，退出腳本操作。array=before時，設(shè)置為確認前。array=after時，設(shè)置為確認后。array=空時，彈出提示信息，退出腳本操作。

以上是“VBS如何批量重命名文件并且操作前備份原有文件”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

分享標題：VBS如何批量重命名文件并且操作前備份原有文件-創(chuàng)新互聯(lián)
標題鏈接：http://muchs.cn/article22/ddopcc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、面包屑導(dǎo)航、App設(shè)計、網(wǎng)站策劃、建站公司、虛擬主機

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)