玄関へお回り下さい。
ドライブの総容量・空き容量を取得 (2個)              (SNo.038)

１．ドライブの総容量を取得
２．ドライブの空き容量を取得
使用コントロール Button1  Button2
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
[プロジェクト]→[参照の追加]→[.NET] で System.Management を追加しておいて下さい
１．ドライブの総容量を取得
　
'[プロジェクト]→[参照の追加]→[.NET] で System.Management を追加しておいて下さい
Private Sub Button1_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles Button1.Click
    Dim dv As String = "C:"
    Dim mo As New System.Management.ManagementObject("Win32_LogicalDisk=""" & dv & """")
    Dim totalSize As Int64 = Convert.ToInt64(mo.Properties("Size").Value.ToString)
    Console.WriteLine("{0} ドライブの総容量はは {1:0,0} バイトです。", dv, totalSize)
    '結果  C: ドライブの総容量はは 20,012,072,960 バイトです。
    '(エクスプローラーのプロパティで表示される値と同じです）
End Sub
　
２．ドライブの空き容量を取得

'[プロジェクト]→[参照の追加]→[.NET] で System.Management を追加しておいて下さい
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
    Dim dv As String = "C:"
    Dim mo As New System.Management.ManagementObject("Win32_LogicalDisk=""" & dv & """")
    Dim freeSpace As Int64 = Convert.ToInt64(mo.Properties("FreeSpace").Value.ToString)
    Console.WriteLine("{0} ドライブの空き容量はは {1:0,0} バイトです。", dv, freeSpace)
    '結果  C: ドライブの空き容量はは 3,534,348,288 バイトです。
    '(エクスプローラーのプロパティで表示される値と同じです）
End Sub
　





2004/05/19
2005/09/18


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005