' ドライブの種類を表示 Private Sub DispDriveType() Select Case GetDriveType("c:\") Case 0: MsgBox "判定不能" Case 1: MsgBox "存在しない" Case DRIVE_REMOVABLE: MsgBox "リムーバブル" Case DRIVE_FIXED: MsgBox "固定" Case DRIVE_REMOTE: MsgBox "リモート" Case DRIVE_CDROM: MsgBox "CD-ROM" Case DRIVE_RAMDISK: MsgBox "RAMディスク" End Select End Sub