Sub RecurseFiles(objFolder)
Dim fils, fil, fols, fol
	'On Error Resume Next
	'Get each file in turn
	Set fils = objFolder.Files
	If Err.Number <> 0 Then Exit Sub
	For Each fil In fils
		'Insert code here to process file "fil"
	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
			RecurseFiles fol
		End If
	Next
End Sub