[VB6] contare file con estensione

[croccio]

ho necessità di contare dei file con una determinata estensioni all'interno di una penna usb. ho già fatto un funzione che mi conta tutti i file presenti nella penna (anche nelle sotto cartelle) e non so come adattare il codice per contarmi i file con una determinata estensione. l'estensione vorrei passarla come parametro mi aiutate cortesemente?

Function contaFile(ByVal StrFolder)

Dim fs 
Set fs = CreateObject("scripting.filesystemobject")
    Dim ParentFld
    Dim SubFld
    Dim IntCount
    Set ParentFld = fs.GetFolder(StrFolder)
        ' conto i file nella cartella corrente
    IntCount = ParentFld.Files.Count
    For Each SubFld In ParentFld.SubFolders
        ' conto tutti i file in ogni sotto cartella
        IntCount = IntCount + contaFile(SubFld.Path)
    Next
    ' restituisco il totale dei file
    contaFile = IntCount
End Function

[gibra]

Nota: il FileSystemObject si dichiara usando una variabile oggetto 'FSO' (non 'fs' come hai fatto tu); non è un obbligo (ovviamente) ma è lo standard.

Devi modificare la firma aggiungendo l'estensione in maiuscolo, es. "TMP":

Dim sFileSpec
sFileSpec = "TMP"

Function contaFile(StrFolder, sFileSpec)

poi ti basta integrare il controllo sull'estensione di ogni file, ad esempio:

   Dim aFile, AllFiles, aFolder   
   Set AllFiles = aFolder.Files
   For Each aFile In AllFiles
      If UCase(FSO.GetExtensionName(aFile.Path)) = sFileSpec Then
          'e qui incrementi il tuo contatore
      End If
   Next

[croccio]

grazie