Find a File Recursively(递归查找文件)

'-----------------------------------------------------------------------
  'Function: FindFileRecursively
  'Finds the first instance of a file within the root folder or one of its subfolders
  '
  'Remarks:
  '   Uses recursion
  '
  'Arguments
  '   ByVal strRootFolder - As String (absolute folder)
  '   ByVal strFilename - As String
  '
  'Returns:
  '   String with full file pathname based on root folder and file name
  '
  'Owner:
  '
  'Date:
  '
  '-----------------------------------------------------------------------    
   Public Function FindFileRecursively(ByVal strRootFolder, ByVal strFilename)
      Dim FSO    
      Dim strFullPathToSearch    
      Dim objSubFolders, subfolder    
   
      Set FSO = CreateObject("Scripting.FileSystemObject")    
      'Initialize function    
      FindFileRecursively = ""    
      'Check that filename is not empty    
      If strFileName = "" Then Exit Function    
      'Get full file pathname    
      strFullPathToSearch = strRootFolder & "\" & strFilename    
      'Check if root folder exists    
      If FSO.FolderExists(strRootFolder) Then        
          'Check if file exists under root folder        
          If FSO.FileExists(strFullPathToSearch) Then            
              FindFileRecursively = strFullPathToSearch        
          Else            
              'Get subfolders            
              Set objSubFolders = FSO.GetFolder(strRootFolder).SubFolders            
              For Each subfolder in objSubFolders                
                  strFullPathToSearch = strRootFolder & "\" & subfolder.name                
                  FindFileRecursively = FindFileRecursively(strFullPathToSearch, strFilename)                
                  If FindFileRecursively <> "" Then                    
                      Exit For                
                  End If            
              Next        
          End If    
      End If
  End Function