夕阳醉了's Blog

Private   Sub   Command1_Click()  
         Dim   fs   As   New   FileSystemObject     '   建立   FileSystemObject  
         Dim   fd   As   Folder         '   定义   Folder   对象  
         Dim   sfd   As   Folder  
 
         Set   fd   =   fs.GetFolder("c:\")'开始查找的目录  
         Command1.Enabled   =   False  
         Screen.MousePointer   =   vbHourglass  
         FindFile   fd,   Text1.Text   'TEXT1是要查找的文件类型.如*.TXT  
         Command1.Enabled   =   True  
         Screen.MousePointer   =   vbDefault  
 End   Sub  
  [separator]
 Sub   FindFile(fd   As   Folder,   FileName   As   String)  
         Dim   sfd   As   Folder,   f   As   File  
 
         '   Part   I查找该文件夹的所有文件  
         For   Each   f   In   fd.Files  
                 If   UCase(f.Name)   Like   UCase(FileName)   Then  
                         Debug.Print   f.Path  
                         List1.AddItem   f.Path  
                 End   If  
                 DoEvents  
         Next  
 
         '   Part   II循环查找所有子文件夹  
         For   Each   sfd   In   fd.SubFolders  
                 FindFile   sfd,   FileName     '   循环查找  
         Next  
 End   Sub