ドライブタイプの取得

以下で、PCに実装されているドライブの種類を取得することが出来ます。

    Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
    Dim d As DriveInfo
    For Each d In allDrives
        If d.IsReady = True And d.DriveType = DriveType.Fixed Then
           MsgBox(d.Name & "は、固定ディスクです。")
        End If
    Next

＊ポイント解説

DriveInfoオブジェクトのGetDrives()メソッドで、実装されているすべてのドライブ情報が、ドライブ毎に配列に格納されて取得ができます。
配列の一つの要素は、一つのドライブ情報で、その中のDriveTypeプロパティでドライブタイプを取得することが出来ます。

＊DriveType列挙体メンバ

• CDRom - CD-ROM、DVD-ROM などの光ディスクドライブ
• Fixed - 固定ディスク（ハードディスク）
• Network - ネットワーク ドライブ
• Ram - RAMディスク
• Removable - フロッピーディスクドライブ、USBフラッシュドライブなどのリムーバブルストレージデバイス
• Unknown - ドライブの種類は不明
• NoRootDirectory - ルートディレクトリがありません

参考：
http://msdn2.microsoft.com/ja-jp/library/system.io.drivetype(VS.80).aspx