VBS实现文件夹/文件补0重命名

老刘1号

隔壁发去重复，我也来水一贴，
会给目录下的所有文件名/文件夹名中出现的第一个数字补0。
用法：存vbs，要处理的文件/文件夹的父目录拖上去。
文件补0重命名.vbs

1. Rem Code by OldLiu
   
2. Option Explicit
   
3. Dim fso,Files
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. If wsh.Arguments.Count <> 1 Then wsh.Quit
   
6. Set Files = fso.GetFolder(wsh.Arguments(0)).Files
   
7. 
   
8. Dim regex
   
9. Set regex = New RegExp
   
10. regex.Global = False
    
11. regex.Pattern = "\D*(\d+)"
    
12. 
    
13. Rem 得到最大索引
    
14. Dim File,lngMaxIndex,strMatch
    
15. lngMaxIndex = 0
    
16. For Each File In Files
    
17.         For Each strMatch In regex.Execute(File.Name)
    
18.                 If CLng(strMatch.Submatches(0)) > lngMaxIndex Then
    
19.                         lngMaxIndex = CLng(strMatch.Submatches(0))
    
20.                 End If
    
21.         Next
    
22. Next
    
23. If lngMaxIndex = 0 Then wsh.Quit 1
    
24. 
    
25. Rem 计算最大补0数目
    
26. Dim bytMaxZeroAdd
    
27. bytMaxZeroAdd = Len(CStr(lngMaxIndex))
    
28. 
    
29. Rem 重命名处理
    
30. regex.Pattern = "(\D*)(\d+)(.*)"
    
31. For Each File In Files
    
32.         For Each strMatch In regex.Execute(File.Name)
    
33.                 File.Move _
    
34.                         File.ParentFolder&""& _
    
35.                         strMatch.Submatches(0) & _
    
36.                         String(bytMaxZeroAdd - Len(CStr(CLng(strMatch.Submatches(1)))),"0") & _
    
37.                         CStr(CLng(strMatch.Submatches(1))) & _
    
38.                         strMatch.Submatches(2)
    
39.         Next
    
40. Next
    

复制代码

文件夹补0重命名.vbs

1. Rem Code by OldLiu
   
2. Option Explicit
   
3. Dim fso,Folders
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. If wsh.Arguments.Count <> 1 Then wsh.Quit
   
6. Set Folders = fso.GetFolder(wsh.Arguments(0)).SubFolders
   
7. 
   
8. Dim regex
   
9. Set regex = New RegExp
   
10. regex.Global = False
    
11. regex.Pattern = "\D*(\d+)"
    
12. 
    
13. Rem 得到最大索引
    
14. Dim Folder,lngMaxIndex,strMatch
    
15. lngMaxIndex = 0
    
16. For Each Folder In Folders
    
17.         For Each strMatch In regex.Execute(Folder.Name)
    
18.                 If CLng(strMatch.Submatches(0)) > lngMaxIndex Then
    
19.                         lngMaxIndex = CLng(strMatch.Submatches(0))
    
20.                 End If
    
21.         Next
    
22. Next
    
23. If lngMaxIndex = 0 Then wsh.Quit 1
    
24. 
    
25. Rem 计算最大补0数目
    
26. Dim bytMaxZeroAdd
    
27. bytMaxZeroAdd = Len(CStr(lngMaxIndex))
    
28. 
    
29. Rem 重命名处理
    
30. regex.Pattern = "(\D*)(\d+)(.*)"
    
31. For Each Folder In Folders
    
32.         For Each strMatch In regex.Execute(Folder.Name)
    
33.                 Folder.Move _
    
34.                         Folder.ParentFolder&""& _
    
35.                         strMatch.Submatches(0) & _
    
36.                         String(bytMaxZeroAdd - Len(CStr(CLng(strMatch.Submatches(1)))),"0") & _
    
37.                         CStr(CLng(strMatch.Submatches(1))) & _
    
38.                         strMatch.Submatches(2)
    
39.         Next
    
40. Next
    

复制代码