检查磁盘是否已经就绪的实例

检查磁盘是否已经就绪的实例

分类:VB.Net 

测试平台：VS2005 + .Net Framework 3.5sp1 + Windows2003/xp

代码如下：

 

' 导入命名空间
Imports System.IO
Public Class LOB

    Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 声明 DriveInfo 类对象， 并使用 GetDrives 方法取得目前
        ' 系统中所有逻辑磁盘驱动器的 DriveInfo 类型数组。
        Dim myAllDrives As DriveInfo() = DriveInfo.GetDrives

        ' 将 myAllDrives 的内容指派给 ComboBox 控件当作选项显示。
        Me.cboDrives.Items.AddRange(myAllDrives)
    End Sub

    Private Sub cboDrives_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboDrives.SelectedIndexChanged
        ' 取得用户所选取的磁盘的 DriveInfo 对象。
        Dim theDriveInfo As DriveInfo = cboDrives.Items(cboDrives.SelectedIndex)
        ' 检查磁盘是否已经就绪。
        If theDriveInfo.IsReady Then
            Me.drivesInfoPropertyGrid.SelectedObject = cboDrives.Items(cboDrives.SelectedIndex)
        Else
            MessageBox.Show(theDriveInfo.Name & " 磁盘尚未就绪。", "乐博网lob.cn提示", MessageBoxButtons.OK)
            Me.drivesInfoPropertyGrid.SelectedObject = Nothing
        End If
    End Sub

    Private Sub drivesInfoPropertyGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drivesInfoPropertyGrid.Click

    End Sub
End Class