freier platz auf der festplatte ermitteln

[goga_2005]

Guten tag,
hat jemand eine Idee wie ich aus VB freier platz auf der Festplatte ermitteln kann.
Ich will in meinem Programm es überwachen und falls nötig eine meldung rausbringen
gruß georg

 

[Nirraven]

Die Hilfe in VBA liefert sowas:

Sub ShowFreeSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & " Kbytes"
    MsgBox s
End Sub

Sollte auch in VB klappen.