Ordnergrösse feststellen

[Scherzkeks]

Hallo

Wie kann ich in Access mit VBA die Grösse eines Ordners rausbekommen? Es soll dann nur angezeigt werden z.B. C:\Eigene Dateien ist 200 MB gross. Das mit dem Anzeigen dürfte nicht so das Problem sein, aber die Ordnergrösse rauszubekommen.

Danke

Cu

[hades]

Das ist ein reines VBA Problem.

~~~moved~~~

[Scherzkeks]

Tschuldigung hast vollkommen Recht. Hab mich mit dem Forum vertan.

[Olli_Master]

Was hältst du davon?

' Zeigt die Größe eines Ordners in Byte an

'

' Voraussetzungen:

' - Windows Scripting Host installiert

' - Verweis auf "Microsoft Scripting Runtime" für die Access-Datenbank gesetzt

Public Function ShowFolderSize()


    Dim fsObj As Scripting.FileSystemObject


    Set fsObj = CreateObject("Scripting.FileSystemObject")


    MsgBox fsObj.GetFolder("c:\programme").Size


End Function

[Scherzkeks]

Jau, vielen Dank, es geht.