[VB6] Conteggio dei file di un certo tipo (o estensione) in una cartella specifica

[LupinI]

Ho testato il codice riportato sotto che mi somma tutti i file contenuti in una cartella.
Non so come incrementare il codice per filtrare solo alcuni file con una determinata estensione (MDB per la precisione).
Qualcuno può aiutarmi?

Dim ParentFld
Dim SubFld
Dim IntCount
Dim fso

Private Sub Command1_Click()
    StrFolder = "c:\archivi"
    IntCount = contaFile(StrFolder)
    Debug.Print IntCount
End Sub

Function contaFile(ByVal StrFolder)
    Set fso = CreateObject("scripting.filesystemobject")
    Set ParentFld = fso.GetFolder(StrFolder)
    ' conto i file nella cartella corrente
    IntCount = ParentFld.Files.Count
    contaFile = IntCount
End Function

Grazie.

[oregon]

Qualcosa del genere

Dim ParentFld
Dim SubFld
Dim IntCount
Dim fso

Private Sub Command1_Click()
    StrFolder = "c:\archivi"
    IntCount = contaFile(StrFolder)
    Debug.Print IntCount
End Sub

Function contaFile(ByVal StrFolder)
    Set fso = CreateObject("scripting.filesystemobject")
    Set ParentFld = fso.GetFolder(StrFolder)

    IntCount = 0
    For Each objFile in ParentFld.Files
        If UCase(fso.GetExtensionName(objFile.name)) = "MDB" Then
	    IntCount = IntCount+1
	End If
    Next


    contaFile = IntCount
End Function

[LupinI]

Ti ringrazio infinitamente