Klasör ve Alt Klasördeki Dosyaları Listeleme

Bu dosya, seçtiğiniz bir klasördeki ve o klasörün tüm alt klasörlerindeki dosyaları Excel sayfasına listeler. Her dosya için yol, dosya adı, boyut ve tarih/saat bilgisi alınır.

Dosyanın içeriği​

• Sheet1: Listenin yazıldığı tek sayfadır. A sütunu dosyanın bulunduğu klasör yolunu, B sütunu dosya adını, C sütunu boyutu, D sütunu dosyanın tarih ve saat bilgisini içerir. Başlıklar makro çalıştığında 1. satıra "Yol", "Dosya Adı", "Boyut" ve "Tarih / Saat" olarak yazılır.

Dosyada formül bulunmaz, tüm değerleri makro yazar.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar Module2 modülündedir.

• GetAllFiles: Klasör seçme penceresini açar. Pencere, Excel'in varsayılan dosya yolundan başlar. Klasör seçmeden pencereyi kapatırsanız işlem iptal olur. Klasör seçerseniz sayfadaki mevcut içerik silinir ve RecursiveDir çağrılır.
• RecursiveDir: Seçilen klasördeki dosyaları tek tek okuyup sayfaya yazar. Bulduğu alt klasörleri bir listede toplar ve her biri için kendisini yeniden çağırarak tüm alt klasörleri tarar. 2 GB üzerindeki dosyalar için boyut değerini düzeltir.

Kodda dosya silme, dosya değiştirme veya dışarıya bağlantı kuran bir işlem görünmez. Makro dosyaları yalnızca okur ve bilgilerini sayfaya yazar. Dikkat edilecek nokta, Cells.ClearContents satırı nedeniyle sayfadaki mevcut verilerin her çalıştırmada silinmesidir.

Kodda dosya türü filtresi olarak *.xls kullanıldığı için liste Excel dosyalarına yöneliktir. Başka dosya türlerini listelemek isterseniz bu filtreyi kodda değiştirmeniz gerekir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfadaki Klasör ve Alt Klasörleri Listele düğmesine tıklayın.
3. Açılan pencerede listelemek istediğiniz klasörü seçin.
4. Liste sayfaya yazılır. Alt klasörlerdeki dosyalar için A sütununda ilgili klasör yolu görünür.

Yalnızca seçtiğiniz klasördeki dosyaları, alt klasörler olmadan listelemek isterseniz Klasör İsimlerini Excele Aktarma dosyasını inceleyebilirsiniz.