標題: 多個不同檔名的檔案處理 [打印本頁]

---

作者: hanababy0813    時間: 2012-7-13 10:00     標題: 多個不同檔名的檔案處理

Dim OldName, NewName
    OldName = "D:\0607-H7P-N\0607-H-7P-N_002.mdf": NewName =
"D:\0607-H7P-N\0607-H-7P-N_002.000"   ' 定義檔案名稱。
    Name OldName As NewName   ' 更改檔名


我要0607-H-7P-N_002.mdf檔名改為0607-H-7P-N_002.000

如果我之後將mdf不同檔名放入此目錄，要直接搜尋該檔並將該附檔名改成.000

是不是可以用*代表0607-H-7P-N_002整個字串，我還有其他的語法需要用到*可以代替不同檔名

因為我不會寫vb，麻煩是否有人能夠幫忙解惑

謝謝

---

作者: boyao    時間: 2012-7-13 10:42

回復 1# hanababy0813


    推薦使用其他檔案更名軟體
    例如 MyRename
    應該不用寫VB吧...

---

作者: kimbal    時間: 2012-7-13 14:00

把 D:\0607-H7P-N\ 下所有 .mdf 轉為 .000

1. Sub test()
   
2. 
   
3.     Dim myFileName
   
4.     Dim myPath
   
5.     Dim newExt
   
6.    
   
7.     myFileName = "*.mdf"
   
8.     myPath = "D:\0607-H7P-N\"
   
9.     newExt = ".000"
   
10.    
    
11.     myName = Dir(myPath & myFileName)
    
12.     Do While myName <> ""
    
13.         NewName = Left(myName, Len(myName) - InStr(StrReverse(myName), ".")) & newExt
    
14.         Name myPath & myName As NewName
    
15.         myName = Dir
    
16.     Loop
    
17.    
    
18. End Sub

複製代碼

---

作者: hanababy0813    時間: 2012-7-16 13:44

Kimbal

我執行後，他一直出現檔案已存在的視窗

有哪個部分要改的嗎?

---

作者: hugh0620    時間: 2012-7-18 09:26

回復 4# hanababy0813


    可在前面加上
    Application.DisplayAlerts = False  


    最後執行完加上
    Application.DisplayAlerts = true

    可以關掉提示視窗~ 這樣會直接將檔案覆蓋過去唷~ 請確定你的作業是否要這樣處理

---

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