mapgrootte bepalen met vba

[brejen]

Bestaat er een mogelijkheid om met vba in excel de mapgroottes van de verschillende mappen op een schijf te bepalen? Heb zitten zoeken maar kan geen oplossing vinden. Ik zou dit willen gebruiken om twee mappen met elkaar te vergelijken wat hun grootte betreft. Kan iemand mij hiermee verder helpen aub?

 

[edmoor]

Een voorbeeld:

Sub ShowFolderSize()
    Dim fso As Object, fsoFolder As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fsoFolder = fso.GetFolder("[COLOR="#FF0000"]E:\Diversen[/COLOR]")

    MsgBox fsoFolder.Size & " bytes"

    Set fsoFolder = Nothing
    Set fso = Nothing
End Sub

Of als functie:

Function FolderSize(Target As Range) As String
    Dim fso As Object, fsoFolder As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fsoFolder = fso.GetFolder(Target.Value)

    FolderSize = fsoFolder.Size

    Set fsoFolder = Nothing
    Set fso = Nothing
End Function

Functie in gebruik:

 

[snb]

Sub M_snb()
    MsgBox Replace(Format(CreateObject("scripting.filesystemobject").getfolder("G:\OF\backup").Size / 10 ^ 6, "0.000 MB"), ",", ".")
End Sub

 

[brejen]

Dank je wel. Ik ben gewelding geholpen.