Klasörlerin KB leri

[mnz]

Merhaba,
C/Test klasörü içinde bulunan tüm klasörlerin disk teki boyutunu makrolarla listeleyebilirmiyiz?
Örn: C/Test/A - 3.456 KB
C/Test/B - 7.425 KB

 

[Zeki Gürsoy]

Sub Test()
Dim fold As Object, d$, top#

Set fold = CreateObject("Scripting.FileSystemObject"). _
            GetFolder("c:\test").SubFolders
            
On Error Resume Next

For Each f In fold

    d = Dir(f.Path & "\*.*")
    
    While d <> ""
        top = top + FileLen(f.Path & "\" & d)
        d = Dir
    Wend
    
    Debug.Print f.Path & " klas&#246;r&#252; boyutu : " & top / 1024 & " KB"
    top = 0
Next

End Sub

 

[mnz]

Sayın Zeki Gürsol teşekkürler ancak hiçbir bilgi görüntülenmiyor? Excel hücrelerine mi listeleniyor?

 

[veyselemre]

Zeki Beyin komutlarında
Debug.Print ile sonuçlar VBA'da bulunan Immediate bölümünde gösteriliyor.
Bu pencereniz açık değilse VBA view kısmından veya Ctrl+G ile açabilirsiniz.

 

[mnz]

Yardımlarınız için teşekkürler.