[發問] 大量檔名對應修改

yenwang

大家好
目前針對大量檔名修改
我已經可以將特定目錄下的檔案名稱抓到欄位A欄內
而接下來人工將B欄位對應的新名稱填入後
需要讓程式自己去修改檔案名稱為新名稱
想請問大家這是否有可參考的方式來處理
有點抓不著頭緒
謝謝

1. Sub listfiles()
   
2. 
   
3. Dim oFSO As Object
   
4. Dim oFolder As Object
   
5. Dim oFile As Object
   
6. Dim i As Integer
   
7. 
   
8. 
   
9. Worksheets.Add().Name = "listfile"  'add new sheet and name to listfle
   
10. 
    
11. Set oFSO = CreateObject("Scripting.FileSystemObject")
    
12. 
    
13. 
    
14. Set oFolder = oFSO.GetFolder("D:\Desktop\New folder")
    
15. 
    
16. Cells(1, 1) = "Existing File Name"
    
17. Cells(1, 2) = "New File Name"
    
18. 
    
19. 
    
20. i = 2
    
21. 
    
22. 
    
23. For Each oFile In oFolder.Files
    
24. 
    
25.     Cells(i, 1) = oFile.Name              'file name
    
26. 
    
27. 
    
28.     i = i + 1
    
29. 
    
30. Next oFile
    
31. 
    
32. End Sub

複製代碼

准提部林

在不考慮有簡體中文或日文檔名//
Old_Name = "路徑\" & 原檔名.副檔名
New_Name = "路徑\" & 新檔名.副檔名
If Dir(Old_Name) <> "" Then Name Old_Name As New_Name