ドライブタイプの取得
以下で、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