Öleyse ilgili sublar daki kodları alttaki gibi yapın.
Sub DosyaAdBul3(path, alan As Long) ve Sub DosyaAdBul4(path, alan As Long) bunlardaki kodlar içinde ve avi yyazdığım yerdeki i harfini siz değiştirebilirsiniz benim klavye farklı belki Türkçe karakter hatası olabilir.
Kod:
For Each Fileler In AltDosyalar.Files
If UCase(fso.GetExtensionName(Fileler)) = "JPG" Then say1 = say1 + 1
If UCase(fso.GetExtensionName(Fileler)) = "PNG" Then say2 = say2 + 1
If UCase(fso.GetExtensionName(Fileler)) = "MPEG" Then say3 = say3 + 1
If LCase(fso.GetExtensionName(Fileler)) = "avi" Then say3 = say3 + 1
If UCase(fso.GetExtensionName(Fileler)) = "MPEG" Then say3 = say3 + 1
Next