Function FindFiles(objFolder, strFileName)'As String
'Returns a tab-delimited
'list of full paths for a given file name. Recursively
'searches all directories starting with the objFolder
'argument for any that match the name strFileName.
Dim fils, fil, fols, fol, strFiles, strSubFiles
	'Get each file in turn
	Set fils = objFolder.Files
	If Err.Number <> 0 Then Exit Function
	For Each fil In fils
		If Lcase(fil.Name) = Lcase(strFileName) Then
			If strFiles = "" Then
				strFiles = strFiles & fil.Path
			Else
				strFiles = strFiles & vbTab & fil.Path
			End If
		End If
	Next
	'Check for any sub folders and recursively process them
	Set fols = objFolder.SubFolders
	For each fol in fols
		If Lcase(fol.Name) <> "recycled" Then
			strSubFiles = FindFiles(fol, strFileName)
			If strSubFiles <> "" Then
				If strFiles = "" Then
					strFiles = strFiles & strSubFiles
				Else
					strFiles = strFiles & vbTab & strSubFiles
				End If
			End If
		End If
	Next
	FindFiles = strFiles
End Function