標題: [發問] 大量檔名對應修改 [打印本頁]

---

作者: yenwang    時間: 2023-7-4 12:51     標題: 大量檔名對應修改

大家好
目前針對大量檔名修改
我已經可以將特定目錄下的檔案名稱抓到欄位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

複製代碼

---

作者: 准提部林    時間: 2023-7-4 16:54

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)