[µo°Ý] Application.FileSearch µLªk¨Ï¥Î

h60327

¦U¦ì¥ý¶i¦¹²Î­pªí«Y¥Hoffice 2003ª©»s§@¡A¦ý¦]¤½¥q§ó·s¬°office 2010ª©¡A¨ä¤¤­ì¦³³¡¤À¥\¯àµLªk¨Ï¥Î
¥Ø«eª¾¹D«Y¦]Application.FileSearchµLªk¦A¨Ï¥Î¡A¸g¤Wºô¬d¸ß¥i¨Ï¥Îdir¥N´À¡A¦ý¦Û¤v¥\¤O¤£¨¬¤´µLªk¥¿±`°õ¦æ¡A
ÁٽЦU¦ì¥ý¶i¦h¥[«ü¾É¡A«Ü©êºp³o¬O¤@­ÓwordÀɦý¬Û«Hµ{¦¡½X¬O¬Û³qªº¡A­Y¦³µo¿ù½Ð¨£½Ì

bobomi

http://forum.twbts.com/thread-671-1-1.html
http://forum.twbts.com/viewthrea ... ighlight=FileSearch

h60327

³o¤G«h§Ú¤]³£¦³·j´M¨ì¡A¦ý¬O¦Û¤v«o®M¥Î¤£¨Ó¡A©Ò¥H¤~¦A½Ð±Ð¸Ñ¨M¤è¦¡¡A¤£³Ó·P¿E

stillfish00

¦^´_ 3# h60327
¼g¤F¤@­Óª«¥óÃþ§O¼Ò²Õ¡A¥u¹ê²{§A¦³¥Î¨ìªº³¡¤ÀFileSearch¥\¯à
¨Ï¥Î¤èªk:
1. Project ¤¤´¡¤J¤@­Óª«¥óÃþ§O¼Ò²Õ¡Aª«¥óÃþ§O¼Ò²ÕName§ï¬°clsFileSearch¡A¶K¤W¥H¤Uµ{¦¡½X

1. Private msLookIn As String
   
2. Private msFileName As String
   
3. Private mbSearchSubFolders As Boolean
   
4. Private mcolFoundFiles As Collection
   
5. 
   
6. Private Sub Class_Initialize()
   
7.   Set mcolFoundFiles = New Collection
   
8. End Sub
   
9. 
   
10. Public Property Get LookIn() As String
    
11.   LookIn = msLookIn
    
12. End Property
    
13. Public Property Let LookIn(ByVal sLookIn As String)
    
14.   msLookIn = sLookIn
    
15. End Property
    
16. 
    
17. Public Property Get FileName() As String
    
18.   FileName = msFileName
    
19. End Property
    
20. Public Property Let FileName(ByVal sFileName As String)
    
21.   msFileName = sFileName
    
22. End Property
    
23. 
    
24. Public Property Get SearchSubFolders() As Boolean
    
25.   SearchSubFolders = mbSearchSubFolders
    
26. End Property
    
27. Public Property Let SearchSubFolders(ByVal bSearchSubFolders As Boolean)
    
28.   mbSearchSubFolders = bSearchSubFolders
    
29. End Property
    
30. 
    
31. Public Property Get FoundFiles() As Collection
    
32.   Set FoundFiles = mcolFoundFiles
    
33. End Property
    
34. 
    
35. Public Function Execute() As Long
    
36.   Dim oFSO As Object, oFolder As Object
    
37.   Dim oFile
    
38.   
    
39.   Set oFSO = CreateObject("Scripting.FileSystemObject")
    
40.   Set mcolFoundFiles = New Collection '²MªÅ
    
41.   
    
42.   If oFSO.FolderExists(msLookIn) Then
    
43.     Set oFolder = oFSO.GetFolder(msLookIn)
    
44.     For Each oFile In oFolder.Files
    
45.       If oFile.Name Like msFileName Then mcolFoundFiles.Add oFile.Path
    
46.     Next
    
47.    
    
48.     If mbSearchSubFolders Then FindSubFolder oFolder.subfolders
    
49.   End If
    
50.   
    
51.   Execute = mcolFoundFiles.Count
    
52. End Function
    
53. 
    
54. Private Sub FindSubFolder(ByRef oSub As Object)
    
55.   Dim x, oFile
    
56.   For Each x In oSub
    
57.     For Each oFile In x.Files
    
58.       If oFile.Name Like msFileName Then mcolFoundFiles.Add oFile.Path
    
59.     Next
    
60.    
    
61.     FindSubFolder x.subfolders
    
62.   Next  
    
63. End Sub

½Æ»s¥N½X

2. µM«á§â§AªºCommandButton1_Click()¤¤ªº
    Set fs1 = Application.FileSearch
    §ï¦¨
    Set fs1 = New clsFileSearch

h60327

¦^´_ 4# stillfish00
·PÁÂstillfish00«e½úªºÀ°¦£¡A²×©ó¥i¥H¨Ï¥Î¡A´î¤Ö«Ü¦hªº²Î­p®É¶¡ ¡C