Klasör İçindeki Fotografları Sayma

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
11/04/2020, 04:33

akarayilan

Hocam ellerine sağlık accesste olması önemli değil excelde de fazlasıyla işimi görür Sayfa2 bir dğzenleme yaptım buna uyarlayabilirmiyiz. Ayrıca bir form oluşturdum kodlarına ona entegre edebilirmiyiz teşekkür ederim
11/04/2020, 16:16

feraz

Bir dener misiniz?
Doğru sonuçlar veriormu ve istediğiniz böyle birşey mi?
Öyleyse kodu hızlandırabilirim belki.
Karışık durum.Gif ekledim.


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ı
12/04/2020, 00:46

feraz

Düzenleme yapıp geliştirmiştim.
2 dosya ekledim biri array ile.Bunda  extra sütuna veri yollamak yok.

Dediğiniz Avi olayı için dosya ekleyin bir bakayım.
12/04/2020, 04:45

akarayilan

Hocam Ellerine sağlık örneği ekledim ilgin için teşekkürler.
Sanırım ben yanlış anlattım benim arşivde yıllık yaklaşık 1500 klasör oluyor ben bunlardan belirlediğim "sayılacak ilk klasör"e yazdığım ilk değer ile "sayılacak son klasör"e yzdığım değerler arasındaki sonuçları sayfa 2 deki Excel tablosunda görebilirmiyiz

örneğin
sayılacak ilk klasör    : Rp.2020-163 Evden hırsızlık
sayılacak son klasör : Rp.2020-313 İşyerinden hırsızlık

Rp.2020-163 ve Rp.2020-313 dahil arasındaki klasör içeriklerini sayarak sonucu sayfa 2 de görebilirmiyiz



Yoruyorum sizi hakkınızı helal ediniz.
12/04/2020, 12:12

feraz

Son eklediğiniz dosyadaki resim altta.Burdan nasıl anlaacağız sonucu.Sadec şunu istiyorum.Excelde nasıl sonuç çıkacaksa manuel olarak A:G sütununa verileri girin anlayayım o şekilde oksa ne yapsak olmuyor gibi

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15