kimbal

¦^´_ 1# smartpearl

application.filesearch ¦boffice 2007 ¤w¸g°h§Ð, ¥i¥H¥ÎDIRªº¤èªk
´«ÀɦW¥i¥Î NAME ... AS ... ªº¤èªk

1. 
   
2. Sub test()
   
3.     Dim sFolder As String, sSearch As String
   
4.     Dim sTemp As String
   
5.    
   
6.     sFolder = "\\nas\aa\"
   
7.     sSearch = "*daily*"
   
8.    
   
9.     sTemp = Dir(sFolder & sSearch)
   
10.    
    
11.     Do While sTemp <> ""
    
12.         Name sFolder & sTemp As sFolder & Replace(sTemp, "daily", "AAA", 1, -1, vbTextCompare)
    
13.         sTemp = Dir
    
14.     Loop
    
15. End Sub

½Æ»s¥N½X