kimbal

§â D:\0607-H7P-N\ ¤U©Ò¦³ .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

½Æ»s¥N½X