[vb6] numero di file GIF

[SuperMariano81]

ciao!
ho questa funzione che mi mostra il numero di file (generici) in una dir:

Private Sub numero_file()
Set fso = CreateObject("scripting.filesystemobject")
Set fol = fso.getfolder("C:\pippo\")
MsgBox fol.Files.Count
End Sub

per contare solo le immagini gif?!?!? come si può fare?

[oregon]

Set fils = fol.Files
count = 0
For Each fil In fils
   If LCase(fso.GetExtensionName(fil.Name)) = "gif" Then count = count + 1
Next fil
MsgBox count

[SuperMariano81]

grassie funziona!

[Lak3d]

come mai l'Lcase? gif può anche essere maiuscolo?

[oregon]

Originariamente inviato da Lak3d
come mai l'Lcase? gif può anche essere maiuscolo?

Sì ...