[vb6] numero di file GIF

[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