hocam ellerine sağlık  teşekkür ederim.
Eveet hocam aynende bu istediğim. Excele ver komutuna belirlediğimiz dosya aralığındaki dosya içeriklerini Excel sayfa2 de görebilirmiyiz. Alta eklemiş olduğunuz alan benim için elzem değil ama kod için geçerli diyorsanız kalsın sıkıntı yok. Excelde bulunan ana klasör isimleri yeter bana.


If UCase(fso.GetExtensionName(Fileler)) = "MPEG" Then say3 = 1

yine aynı yere yazacak şekilde bu koda Mp4 ve avi uzantılarını da saydırmak istersek nasıl bir değişiklik yapabiliriz ama toplamı