VBA Dosya Boyutunu Öğrenme

VBA ile dosya boyutunu öğrenmek, FileSystemObject kullanımı ile gerçekleştirilebilir.

Aşağıdaki kod örneğini inceleyelim..

Option Explicit

Sub DosyaBoyutunuOgren()
    Dim fso As FileSystemObject
    Dim dosya As File
    Dim dosyaYolu As String
    Dim dosyaBoyutu As Long

    Set fso = New FileSystemObject
    dosyaYolu = "C:\dosya.txt"

    If fso.FileExists(dosyaYolu) Then
        Set dosya = fso.GetFile(dosyaYolu)
        dosyaBoyutu = dosya.Size
        MsgBox dosyaBoyutu & " bayt"
    Else
        MsgBox dosyaYolu & " adresinde bir dosya bulunamadı."
    End If
End Sub

Bu kodda, ilk olarak FileSystemObject nesnesi oluşturuldu ve dosya yolu tanımlandı. Daha sonra, dosya yolunun geçerli bir dosya mı yoksa yok mu olduğu FileSystemObject.FileExists() metodu ile kontrol edildi. Dosya varsa, dosya nesnesi oluşturuldu ve dosya boyutu dosya.Size ile öğrenildi. Son olarak, dosya boyutu bir mesaj kutusunda görüntülendi.


VBA

İlginizi Çekebilir

VBA Tüm Birleştirilen Hücreleri Kaldırmak

VBA Bir Dizi Tam Sayının Ortalamasını Bulma

VBA Dosya Kopyalama

VBA 1'den 100'e Kadar Asal Sayı Toplam Örneği

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği