met vba zien hoeveel MB of GB in een bepaalde map zit

[slimmen001]

kan je bijvoorbeeld zien hoeveel megabyte of gigabyte er in de map c:/program files zit met behulp van een vbacode?

 

[OctaFish]

Hiermee kun je de inhoud van een map inlezen in een excel blad. Met een paar aanpassingen kun je denk ik wel een totaaltje laten uitrekenen...

Sub Get_File_Size()
Dim r As Integer, f As String, Map As String, folder As String
Dim MyFile As String
    Set wb = ActiveWorkbook
    Set ws = ActiveSheet
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "Cancel Selected"
            End
        End If
        folder = .SelectedItems(1)
    End With
    
    Map = folder & "\*.*"
    r = 1
    ws.Cells(r, 1) = "FileName"
    ws.Cells(r, 2) = "Size"
    ws.Cells(r, 3) = "Date/Time"
    Range("A1:c1").Font.Bold = True
    
    'Get Directory
    f = Dir(Map) ', 7)
    Do While f <> ""
        r = r + 1
        ws.Cells(r, 1) = f
        ws.Cells(r, 2) = FileLen(folder & "\" & f)
        ws.Cells(r, 3) = FileDateTime(folder & "\" & f)
        'Get next File
        f = Dir
    Loop
    Columns("A:C").Columns.AutoFit
End Sub

 

[slimmen001]

hoe moet je dat dan doen?
want als ik dan een map selecteer gebeurt er niets

 

[Hoornvan]

slimmen001,

Hier is een voorbeeld met uitleg in de file.

 

[slimmen001]

ik probeer het met jouw uitleg, maar er verschijnt niets
misschien komt het door een andere versie van excel ofzo
ik heb 2007

 

[Hoornvan]

ik probeer het met jouw uitleg, maar er verschijnt niets
misschien komt het door een andere versie van excel ofzo
ik heb 2007

Ik gebruik ook Excel 2007 en het geef bij mij geen problemen.
Probeer het eens op een andere PC als die in de buurd is.

 

[Warme bakkertje]

Wijzig nog enkel het pad naar de juiste directory

Sub tst()
 MsgBox CreateObject("Scripting.FileSystemObject") _
    .GetFolder("D:\Mijn documenten\Helpmij").Size & " bytes"
End Sub

 

[Gerton64]

Michel

deze is al van een tijd geleden maar ik zou ook zo iets in een excelbestand willen hebben, het voorbeeld heb ik gezien en dat werkt bij mij.
Is het mogelijk dat ik diversen mappen kan zien aan MB's geen lijst alleen maar MB.

Werk met een bestand waar wat linken op staan naar mappen, dat kan gelijk naar de map gaan waar ik in werkt het zou dan mooi wezen als ik de MB's kan zien van de Map.