標題: [發問] VBA批次變更文字檔名 [打印本頁]

---

作者: smart3135    時間: 2018-1-2 17:53     標題: VBA批次變更文字檔名

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

---

作者: GBKEE    時間: 2018-1-2 18:56

回復 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    時間: 2018-1-2 22:48

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

---

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