获得 硬盘的剩余空间 VB

来源：百度知道 编辑：UC知道 时间：2024/06/30 12:59:02
在一个窗口上面加载一个label1 控件 要在这个控件上面显示 当前电脑所有硬盘占用空间和剩余空间，请问代码怎么编写？
按你的方法做了，显示说 “磁盘未准备好”

工程——>引用——>Microsoft scripting runtime
Private Sub Form_Load()
Dim fso As New FileSystemObject
Dim driver As Drive
For Each driver In fso.Drives
Label1.Caption = Label1.Caption & driver.DriveLetter & " FreeSpace" & driver.FreeSpace & " AvailableSpace" & driver.AvailableSpace
Next driver
End Sub
得到的单位是byte如果你想化成GB除以1024^3