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 Bir Stringdeki Her Karakterin Sayısını Bulma Örneği

VBA Şifrelenmis Worksheet'lerin Şifresini Kaldırmak

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

VBA Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

VBA Bir Listede Birden Çok Olan Elemanları Göstermek