這篇文章給大家介紹怎么在VBS中批量重命名文件，內(nèi)容非常詳細(xì)，感興趣的小伙伴們可以參考借鑒，希望對(duì)大家能有所幫助。
核心函數(shù)
重慶分公司
重慶分公司
'選擇我的電腦作為根目錄，來(lái)選擇目錄
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "Select a folder:", OPTIONS, strPath)
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
'MsgBox objFolderItem.name
'===================================================================
'選擇指定盤(pán)符下的目錄
' 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_edit
Dim OneLine,TwoLine,ThreeLine,FourLine,FiveLine
i=0
test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
'Wscript.echo test
filepath=test&"\config.ini"
'WScript.Echo filepath
' file_path = "C:\Users\Administrator\Desktop\1\music"'目標(biāo)文件夾的路徑
dst_file_path="C:\"&objFolderItem.name&"_bak"
file_path=objPath
'-----得到文件夾路徑，且打開(kāi)配置文件
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(file_path)
Set fs = folder.files
Set file=fso.OpenTextFile(filepath,1)
'----------------在操作前，備份一下原有的文件
fso.CopyFolder file_path,dst_file_path,True
'----------------------------------
'取出第一行中的兩個(gè)數(shù)
OneLine=file.ReadLine
OneLineStr=Split(OneLine,"=")
OneLineCount=UBound(split(OneLine,"="))
For i1=0 To OneLineCount
'WScript.Echo OneLineStr(i1)
Next
'-------------------------------------
'取出第二行中的兩個(gè)數(shù)
TwoLine=file.ReadLine
TwoLineStr=Split(TwoLine,"=")
TwoLineCount=UBound(split(TwoLine,"="))
For i2=0 To TwoLineCount
'WScript.Echo TwoLineStr(i2)
Next
'-------------------------------------------
'取出第三行中的兩個(gè)數(shù)
ThreeLine=file.ReadLine
ThreeLineStr=Split(ThreeLine,"=")
ThreeLineCount=UBound(split(ThreeLine,"="))
For i3=0 To ThreeLineCount
'WScript.Echo ThreeLineStr(i3)
Next
'-------------------------------------------
'取出第四行中的兩個(gè)數(shù)
FourLine=file.ReadLine
FourLineStr=Split(FourLine,"=")
FourLineCount=UBound(split(FourLine,"="))
For i4=0 To FourLineCount
'WScript.Echo FourLineStr(i4)
Next
'-----------------------------------------
'取出第五行中的兩個(gè)數(shù)
FiveLine=file.ReadLine
FiveLineStr=Split(FiveLine,"=")
FiveLineCount=Ubound(split(FiveLine,"="))
For i5=0 To FiveLineCount
'WScript.Echo FiveLineStr(i5)
Next
'---------------------------------------------
'調(diào)用過(guò)程
'Function_Main()
Function Function_Main()
If OneLineStr(1)="true" Then
Function_Prefix_Name()
Elseif OneLineStr(1)="false" Then
Function_Suffix_Name()
Elseif OneLineStr(1)="number" Then
Function_Number_Value()
Elseif OneLineStr(1)="array" Then
Function_MyArrayReName()
Elseif OneLineStr(1)="" Then
WScript.Quit
End If
End Function
'-----------------------------------------
'在原有名稱前增加前綴
Function Function_Prefix_Name()
For Each file in fs
File.Name=TwoLineStr(1)&File.Name
Next
End Function
'--------------------------------------
'在原有名稱前增加后綴
Function Function_Suffix_Name()
For Each file in fs
Name=Mid(file.name,1,instrrev(file.name,".")-1) '取到.號(hào)前面的文件名
Format=Mid(file.name,instrrev(file.name,".")) '取到.號(hào)后面的后綴格式
file.Name=Name&ThreeLineStr(1)&Format
Next
End Function
'--------------------------------------------
'在原有名稱前增加有序自增數(shù)字
Function Function_Number_Value()
For Each file In fs
FourLineStr(1)=FourLineStr(1)+1
file.name=FourLineStr(1)&file.name
Next
End Function
'Function_Suffix_Name()
'--------------------------------------------------
'批量更改文件名稱
Function Function_MyArrayReName()
Const BeforAlarm="發(fā)生犯人暴獄，請(qǐng)注意觀察"
Const AfterAlarm="發(fā)生犯人暴獄，各小組按預(yù)案處置"
Dim MyArray(12)
n=1
y=0
For i=0 To 12
If i=11 Then
MyArray(i)="監(jiān)門(mén)哨"
Elseif i=12 Then
MyArray(i)="自衛(wèi)哨"
Else
MyArray(i)=n&"號(hào)哨"
n=n+1
End If
' WScript.Echo MyArray(i)
Next
For Each file In fs
Format=Mid(file.name,instrrev(file.name,"."))
'MsgBox Format
'MsgBox MyArray(y)
If FiveLineStr(1)="before" Then
file.name=MyArray(y)&BeforAlarm&Format
Elseif FiveLineStr(1)="after" Then
file.name=MyArray(y)&AfterAlarm&Format
Else
MsgBox "請(qǐng)先設(shè)置是確認(rèn)前還是確認(rèn)后!",,"提示"
WScript.Quit
End If
y=y+1
'WScript.Echo file.name
Next
End 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=20140100 array=
參數(shù)配置使用方法：
statue=true時(shí)為增加前綴
statue=false時(shí)為增加后綴
statue=number 時(shí)為增加有序自增數(shù)字。
statue=array 為調(diào)用數(shù)組函數(shù)
statue=空值時(shí)為空，不作處理，退出腳本操作。
array=before時(shí)，設(shè)置為確認(rèn)前。
array=after時(shí)，設(shè)置為確認(rèn)后。
array=空時(shí)，彈出提示信息，退出腳本操作。
關(guān)于怎么在VBS中批量重命名文件就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到。
