以下で、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 & "…