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

Topics

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

VBS (WSH) 版のサンプルコードはこちらで公開しています。

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% 切っているドライブを取得しています。
ですので空き容量が十分にあるマシンでは結果が確認取れませんので空き容量の閾値を大きめにしてテストを行うか、ファイルサイズの大きいダミーデーターを作成してから試してみてください。

容量の大きいダミーファイルの作成には fsutil コマンドが便利です。

fsutil file createnew testfile 100000

上記を実行すると約 100MB のダミーファールが作成できます。
なお WMI の使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShell を対象) に関しては、WMI Step も参考にしてみてください。(WMI 初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソースコードテンプレートも公開しています。WMI プログラム/スクリプト作成時に役立てば…と思っています。

Recommended book

個人的にお勧めする本の紹介です。


WMI Fun !! > WMI Sample (VB) > ディスクの空き容量を取得する

WMI Fun !! > WMI Sample (VB) > ディスクの空き容量を取得する

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

Topics

Sample Code

Comment

Recommended book