Aynı İsimdeki Excel Dosyalarını Silme

Bu dosya, bir klasör ağacındaki aynı adı taşıyan .xlsm dosyalarını bir UserForm üzerinden silmek için hazırlanmıştır. Klasör seçimi pencereden yapılır; silme işlemi seçilen klasörün alt klasörlerinde çalışır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• UserForm1: Klasör seçme ve silme işlemlerinin yapıldığı form. İçinde klasör yolunu gösteren TextBox1, alt klasörleri listeleyen ListBox1, klasör sayısını gösteren Label4 ve iki düğme bulunur.
• Module1: Formu açan ED makrosunu içerir.
• ThisWorkbook: Dosya açıldığında Workbook_Open olayı çalışır ve çalışma kitabını kaydeder.

Makrolar​

• ED: UserForm1 formunu açar.
• CommandButton1_Click: Klasör seçme penceresini açar. Seçilen yol TextBox1 alanına yazılır, bu klasörün alt klasör adları ListBox1 içinde listelenir ve sayısı Label4 alanında gösterilir.
• CommandButton2_Click: Seçilen klasörden başlayarak iç içe 11 alt klasör düzeyine kadar tarama yapar ve her klasör için DelFiles işlevini çağırır. Bittiğinde "Aynı İsimli Dosyalar Silindi" mesajı verilir, form alanları temizlenir.
• DelFiles ve myKill: Klasördeki *.xlsm dosyalarının adlarını alır; alt klasörlerde aynı adı taşıyan dosyaları siler. Adı DeleteFiles.xlsm olan dosya silme dışında bırakılır.

Uyarı: Makro dosya silme işlemi yapar. Silinen dosyalar genellikle geri alınamaz. Kullanmadan önce ilgili klasörün yedeğini alın veya test klasöründe deneyin. Silme yalnızca .xlsm uzantılı dosyalar için çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile ED makrosunu çalıştırın; UserForm1 açılır.
3. Klasör seçme düğmesine tıklayın ve taranacak ana klasörü seçin.
4. ListBox1 içindeki alt klasörleri ve Label4 sayısını kontrol edin.
5. Silme düğmesine tıklayın ve işlem sonu mesajını bekleyin.