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.