这篇文章给大家介绍怎么在VBS中批量重命名文件,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。
核心函数
'选择我的电脑作为根目录,来选择目录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中批量重命名文件就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。