当前位置: 源码素材网 » VB教程 » 详情页

VB得到各个磁盘分区的容量大小

  •   时间:2019-04-13
  • 概述:获取磁盘容量

VB获取各个磁盘分区容量大小,以For的方式遍历各个逻辑分区,并得到分区的容量大小信息,如何实现的请参考以下代码:

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "获取逻辑分区容量值"
   ClientHeight    =   3645
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3645
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
    Dim LogicalDiskSet As Object
    Dim ld As Object
    Set LogicalDiskSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_LogicalDisk")
    For Each ld In LogicalDiskSet
        Print ld.Name & "盘"
        Print "磁盘大小" & ld.Size / 1024 ^ 2; "MB"
    Next
End Sub

    相关内容:

    相关声明:

      若“VB得到各个磁盘分区的容量大小”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。