ドライブの種類を表示

キーワード:

GetDriveType

サンプルコード:

' ドライブの種類を表示
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


(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。