■Topics

---

マシンに搭載されているディスクの空き容量を取得するサンプルです。Win32_LogicalDiskクラスを使用します。

---

■Sample Code

---

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

---

■Comment

---

それでは実行してみましょう。

コンピュータについている物理ディスクドライブを
検索して空き領域が10%切っているドライブを取得しています。
ですので空き容量がたっぷりあるマシンでは結果が見れません。

---