[發問] VBA批次變更文字檔名

smart3135

請教一下各位，最近因工作需要，想把圖片中資料夾的文字檔批次更名，主要是要將資料夾中所有的12345678更名為11111111，不知該如何寫程式碼？我有試過用Name………As………，可是似乎沒辦法適用萬用字元*.TXT，懇請高手賜教

下載 (125.29 KB)

2018-1-2 17:53

GBKEE

回復 1# smart3135
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim A As String, B As String, C As String, xPath As String
   
4.     xPath = "d:\"
   
5.     B = "12345678"
   
6.     C = "11111111"
   
7.     A = Dir(xPath & "*" & B & "*", vbDirectory)
   
8.     Do While A <> ""
   
9.         Name xPath & A As xPath & Replace(A, B, C)
   
10.         A = Dir
    
11.     Loop
    
12. End Sub

複製代碼

smart3135

回復 2# GBKEE
測試過了，完全符合需求，非常感謝。