未处理IOException，设备未就绪。
Dim MyGetDrives() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()
For i As Int16 = 1 To MyGetDrives.Count
MsgBox(MyGetDrives(i - 1).VolumeLabel.ToString)
Next

错误：未处理IOException，设备未就绪。

[解决办法]
访问光驱、虚拟光驱、网络映射等盘符时会有这个提示，你判断一下或try catch一下就好了