ディスクの空き容量を取得する: Win32_LogicalDisk - WMI Sample (VB)

Private Sub Command1_Click()

Dim DiskSet As SWbemObjectSet
Dim Disk As SWbemObject
Dim Locator As New SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer

Set DiskSet = Service.ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType=3")

For Each Disk In DiskSet
If (Disk.FreeSpace / Disk.Size) < 0.1 Then
MesStr = MesStr & Disk.Name
End If
Next

MsgBox "空き容量が10%以下のドライブは、" & vbCrLf & MesStr & "ですよ。"

Set DiskSet = Nothing
Set Disk = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub