Dosya Bulucu Uygulaması Yapma

Bu çalışma kitabı, bir klasör yolundaki alt klasörleri ve dosyaları Excel sayfasında listeleyen makro tabanlı bir dosya bulucu uygulamasıdır. Klasörler renkle ayrılır; renkli bir klasör adına çift tıklandığında o klasörün içeriği de listelenir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Main: A1 hücresine taranacak klasör yolu yazılır. Sonuçlar B sütunundan itibaren sağa doğru sıralanır. Üst satırda ana klasörün alt klasörleri, her klasörün altında ise o klasörün dosya ve klasörleri listelenir.
• SubDir: Daha derin seviyedeki klasörlerin içeriği bu sayfada, yan yana sütunlar halinde gösterilir.

Çalışma kitabında formül kullanılmamıştır; tüm işlem VBA makrolarıyla yapılır.

Makrolar​

• Files: A1'deki yolu okur, yolun sonuna "\" ekler ve ilk seviyedeki alt klasörleri satır 1'e renkli (ColorIndex 33) olarak yazar. Ardından Files2 çalışır.
• Files2: Satır 1'deki her klasör için içeriği ilgili sütunun altına listeler. Alt klasörler farklı bir renkle (ColorIndex 34) işaretlenir, dosyalar renksiz kalır. İşlem sonunda sütun genişlikleri otomatik ayarlanır.
• Files3: Çift tıklanan klasörün içeriğini listeler. Main sayfasından tetiklenirse sonuç SubDir sayfasına yazılır; SubDir sayfasında devam eden gezinti aynı sayfada yeni sütunlara eklenir.
• Sheet1 ve Sheet2 olayları: Main sayfasında rengi 34 olan, SubDir sayfasında rengi 36 olan hücreye çift tıklanınca Files3 çalıştırılır.
• ClearFiles: Main sayfasında B:IV sütunlarındaki içeriği ve rengi, SubDir sayfasındaki tüm içeriği temizler.
• ClearSubDir: Yalnızca SubDir sayfasını temizler.
• Colours: 1-56 arası renk indekslerini A sütununda renklendirir, B sütununa numaralarını yazar.
• Macro2: B sütununu otomatik genişliğe getirir.

Makrolar dosya silme veya dışarıya bağlantı işlemi yapmaz; yalnızca klasör içeriğini okur ve sayfaya yazar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Main sayfasında A1 hücresine taranacak klasör yolunu yazın.
3. Alt + F8 ile Files makrosunu çalıştırın.
4. Alt klasörlerin içeriğini görmek için renkli klasör adına çift tıklayın.
5. Yeni bir tarama öncesinde ClearFiles makrosuyla sayfaları temizleyin.