Imports System.Text
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sb As New StringBuilder()
        Dim M As Double
        '建立stringbuilder对象,用于在内存中存储临时信息
        Dim myAllDrives As DriveInfo() = DriveInfo.GetDrives()
        ' DriveInfo对象数组,存储获得的磁盘信息
        Try
            For Each myDrive As DriveInfo In myAllDrives
                '循环写入每个磁盘的参数 属性
                If myDrive.IsReady Then
                    sb.Append("磁盘驱动器盘符:")
                    sb.AppendLine(myDrive.Name)
                    sb.Append("磁盘卷标:")
                    sb.AppendLine(myDrive.VolumeLabel)
                    sb.Append("磁盘类型:")
                    sb.AppendLine(myDrive.DriveType.ToString())
                    sb.Append("磁盘格式:")
                    sb.AppendLine(myDrive.DriveFormat)
                    sb.Append("磁盘大小:")
                    m = myDrive.TotalSize / (1024 * 1024)
                    sb.AppendLine(m.ToString() + "M")
                    sb.Append("磁盘可用剩余空间:")
                    m = myDrive.AvailableFreeSpace / (1024 * 1024)
                    sb.AppendLine(m.ToString() + "M")
                    sb.Append("磁盘总剩余空间:")
                    m = myDrive.TotalFreeSpace / (1024 * 1024)
                    sb.AppendLine(m.ToString() + "M")
                    sb.AppendLine("--------------------------------------------------")
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Me.TextBox1.Text = sb.ToString()
        '显示信息
    End Sub
End Class

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*2=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情