ドライブの種類を取得する
Option Explicit
Private Declare Function GetDriveType Lib
"kernel32" Alias "GetDriveTypeA"
(ByVal sDrive As String) As Long
Private Function DriveType(sDrive As String)
As String
Dim sDriveName As String
Const DRIVE_TYPE_UNDTERMINED = 0
Const DRIVE_ROOT_NOT_EXIST = 1
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6
sDriveName = GetDriveType(sDrive & ":\")
Select Case sDriveName
Case DRIVE_TYPE_UNDTERMINED
DriveType = "不明。"
Case DRIVE_ROOT_NOT_EXIST
DriveType = "なし"
Case DRIVE_CDROM
DriveType = "CD-ROM "
Case DRIVE_FIXED
DriveType = "ハードディスク"
Case DRIVE_RAMDISK
DriveType = "RAM ディスク"
Case DRIVE_REMOTE
DriveType = "ネットワークドライブ"
Case DRIVE_REMOVABLE
DriveType = "フロッピーディスク"
End Select
End Function