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?


codice:
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.