Devo contare dei dei file, in maniera più veloce possibile, utilizzando le loro estensioni (*.JPG o *.*).
Ho provato ad usare questa funzione per contare tutti i file presenti in una determinata directory compresi quelli delle sue sottodirectory


Public Function ContaFile(PercorsoDirectory)
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fnd = fso.GetFolder(PercorsoDirectory).Files.Count

For Each Fsofolder In fso.GetFolder(PercorsoDirectory).SubFolders
fnd = fnd + Fsofolder.Files.Count
Next
End Function


Il problema è che mi conta solo la sottodirectory e non i file che si trovano al suo interno ed i file delle sue rispettive sottodirectory!!!
ES:
D:\PROVA\readme.txt
C:\PROVA\CAR1
C:\PROVA\CAR1\OPT1\Pippo.txt
C:\PROVA\CAR1\OPT1\Pluto.txt
C:\PROVA\CAR1\OPT1\....
C:\PROVA\CAR1\OPT2\Minnie.txt
C:\PROVA\CAR1\OPT2\....
C:\PROVA\CAR1\OPT2\....

il totale che mi ritorna è 2 (Prende il file della cartella PROVA e mi conta 1 in CAR1... insomma mi legge solo la directory ma non il contenuto di tutte le sottodirectory

Dove sbaglio?
Come posso fare un conteggio, passandogli solo le estensioni?

Grazie