ディスクの空き容量を取得する: Win32_LogicalDisk
■Topics
マシンに搭載されているディスクの空き容量を取得するサンプルです。Win32_LogicalDiskクラスを使用します。
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
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
それでは実行してみましょう。
コンピュータについている物理ディスクドライブを
検索して空き領域が10%切っているドライブを取得しています。
ですので空き容量がたっぷりあるマシンでは結果が見れません。
Win32_LogicalDisk クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。