ボリューム情報の表示(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 更新)
本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。