Function Count_Files(strFolder As String, strExt As String) As Long
On Error GoTo Error_Handler
Dim file_count As Long
Dim file_name As String
file_name = Dir(strFolder)
file_count = 0
Do While file_name <> ""
If UCase(Right(file_name, 3)) = UCase(strExt) Then
file_count = file_count + 1
End If
file_name = Dir
Loop
Count_Files = file_count
Exit Function
Error_Handler:
Debug.Print Err.Description
Count_Files = -1
End Function
Sub test()
MsgBox Count_Files("c:\TEST\ADRESAR\", "PDF")
End Sub