Dosya Boyutu Öğrenme

Bu çalışma dosyası, belirtilen bir klasördeki dosyaların boyutunu ve diğer özelliklerini Excel sayfasına listeler. Dosya boyutu öğrenme işlemi tek bir makro ile yapılır; sonuçlar Sayfa1 üzerine satır satır yazılır.

Dosyanın içeriği​

• Sayfa1: Makronun çıktısını yazdığı sayfadır. Liste 2. satırdan başlar; sütun başlıkları sayfada hazır olarak gelmez.
• Module1: ListFilesFSO adlı makroyu barındıran VBA modülüdür.

Makrolar​

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.
ListFilesFSO makrosu, FileSystemObject nesnesini kullanarak kodda tanımlı klasörü açar ve içindeki her dosya için Sayfa1'de bir satıra şu bilgileri yazar:

1. A sütunu: dosya adı
2. B sütunu: oluşturulma tarihi
3. C sütunu: sürücü
4. D sütunu: üst klasör
5. E sütunu: tam yol
6. F sütunu: kısa ad
7. G sütunu: kısa yol
8. H sütunu: dosya boyutu (bayt cinsinden)
9. I sütunu: dosya türü

Makro yalnızca klasördeki dosyaları okur ve listeler; dosya silme, değiştirme ya da dışarıya bağlantı kurma işlemi yapmaz. Alt klasörlerin içindeki dosyalar listeye dahil edilmez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt + F11 tuşlarıyla Visual Basic penceresini açın ve Module1 modülüne geçin.
3. Kodda sPath değişkenine atanan klasör yolunu (varsayılan olarak C:\Klasör) boyutunu öğrenmek istediğiniz klasörün yoluyla değiştirin.
4. Alt + F8 ile ListFilesFSO makrosunu çalıştırın.
5. Dosya listesi ve boyutları Sayfa1'de A2:I sütunlarında görüntülenir. Boyut bilgisi H sütunundadır.

Makro, yeni çalıştırmada satırları 2. satırdan itibaren yeniden yazar; önceki listeden daha kısa bir liste çıkarsa eski sonuçların kalan satırları elle temizlenmelidir.