★　指定のドライブが利用可能か調査する
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'指定のドライブが利用可能か調査する(フロッピーが挿入されているかも判断できます)
    Dim dv As String = ComboBox1.SelectedItem
    If System.IO.Directory.Exists(dv) = False Then
        MessageBox.Show(dv & " ドライブは準備ができていません")
    Else
        MessageBox.Show(dv & " ドライブは使用可能です")
    End If
End Sub


Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
    For i As Integer = 65 To 73   'A〜Hドライブまでを調査
        ComboBox1.Items.Add(Chr(i) & ":\")
    Next i
    ComboBox1.Text = "A:\"
End Sub