Dosya boyutu

[snskutlu]

Merhaba Arkadaşlar

Bir klasör içindeki dosya isimlerini listbox içinde listelerken dosyanın byte olarak boyutu örneğin 1 Kilobyte dan düşük ise listeye eklenmesini istemiyorum. Bundaki amacım özellikle "Kısayol Dosya.xls" olan dosyaları ayıklamaktır.

Böyle bir şartı aşağıda örneklediğim makroya eklemek isterim. Teşekkür ederim.

Sub listele ()
Dim FSO As Object, fs As Object, sat As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each fs In FSO.GetFolder(ThisWorkbook.Path & "\" & ANAMENU.musarsiv.Value).Files

If Right(fs.Name, 4) = ".xls" and ??????????? Then


End if
Next

End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi kullanabilirsiniz.

Sub listele()
    Dim FSO As Object, fs As Object, sat As Long, BOYUT As Long
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each fs In FSO.GetFolder(ThisWorkbook.Path & "\" & ANAMENU.musarsiv.Value).Files
        BOYUT = FSO.GetFile(fs).Size / 1024
        If Right(fs.Name, 4) = ".xls" And BOYUT > 1 Then