ボリューム情報の表示(VB)

キーワード:

GetVolumeInformation

サンプルコード:

' ボリューム情報の表示
Private Sub DispVolumeInfo()
	Dim VolumeName As String * 1000
	Dim SystemName As String * 1000
	Dim SerialNumber As Long
	Dim FileNameLength As Long
	Dim Flags As Long
	Dim Msg As String

	'ボリューム情報の取得
	GetVolumeInformation "a:\", VolumeName, 1000, SerialNumber, FileNameLength, Flags, SystemName, 1000

	'メッセージの作成
	Msg = "ファイルシステム名:" & Left(SystemName, InStr(SystemName, vbNullChar) - 1) & vbCr & _
	    "ボリューム名:" & Left(VolumeName, InStr(VolumeName, vbNullChar) - 1) & vbCr & _
	    "シリアル番号:" & SerialNumber & vbCr & _
	    "ファイル名の最大長:" & FileNameLength & vbCr
	    
	If (Flags And FS_CASE_IS_PRESERVED) <> 0 Then Msg = Msg & "保存時に大文字/小文字が区別される" & vbCr
	If (Flags And FS_CASE_SENSITIVE) <> 0 Then Msg = Msg & "大文字/小文字を区別したファイル検索をサポート" & vbCr
	If (Flags And FS_UNICODE_STORED_ON_DISK) <> 0 Then Msg = Msg & "UNICODEファイル名の格納サポート" & vbCr
	If (Flags And FS_PERSISTENT_ACLS) <> 0 Then Msg = Msg & "セキュリティあり" & vbCr
	If (Flags And FS_FILE_COMPRESSION) <> 0 Then Msg = Msg & "ファイルベースの圧縮サポート" & vbCr
	If (Flags And FS_VOL_IS_COMPRESSED) <> 0 Then Msg = Msg & "圧縮されたボリューム"

	'メッセージの表示
	MsgBox Msg
End Sub

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

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