tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 物理ドライブ(指定ドライブ)情報を取得
投稿日: 2016/04/19(Tue) 18:27
投稿者食う寝る走る
開発環境
 OS:Windows7(32bit)プロフェッショナル
 IDE:VS2015 コミュニティ(VB.net)


Cドライブの情報を取得したく、
(1)http://blog.livedoor.jp/akf0/archives/51215179.html
(2)http://hanatyan.sakura.ne.jp/vb2005/vb2013drive05.htm
を参考にコードを考えましたが、下のコードでは、Cドライブ以外の情報も取得してしまいます。
下記コードを修正して(1)のようにCドライブだけの情報に出来ないでしょうか?


更に、(2)では
For Each wkProperty As PropertyData In Disk.Properties()
      Console.WriteLine(wkProperty.Name())
    Next

でプロパティを羅列するコードがありますが、羅列した結果をそのまま、使ってコード内に埋め込めれば、
Dim Str() As String = {"Name", "FileSystem", "FreeSpace", "Size", "VolumeName", "VolumeSerialNumber"}
のように、配列内であえて記述しなくて済むのですが、そのようにしてCドライブの情報を羅列するコードにするにはどのようにしたらよろしいでしょうか。

よろしくお願いいたします。


'---------------------------------------------------------------------------------------------
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Str() As String = {"Name", "FileSystem", "FreeSpace", "Size", "VolumeName", "VolumeSerialNumber"}
        Dim strMem As String '情報格納


        Dim mc As New ManagementClass("Win32_LogicalDisk")
        For Each i In Str
            For Each p In mc.GetInstances()
                strMem &= ($"Win32_LogicalDisk.{i}={p(i)}" & vbCrLf)
                p.Dispose()
        Next p, i

        MsgBox(strMem)

    End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。