ファイルの属性を表示(VB)
キーワード:
GetFileAttributes
サンプルコード:
' ファイルの属性を表示
Private Sub DispFileAttr()
Dim Attr As Long
Dim Msg As String
' 属性の取得
Attr = GetFileAttributes("c:\command.com")
'メッセージの作成
If (Attr And FILE_ATTRIBUTE_ARCHIVE) <> 0 Then Msg = Msg & "アーカイブ" & vbCr
If (Attr And FILE_ATTRIBUTE_COMPRESSED) <> 0 Then Msg = Msg & "圧縮" & vbCr
If (Attr And FILE_ATTRIBUTE_DIRECTORY) <> 0 Then Msg = Msg & "隠しファイル" & vbCr
If (Attr And FILE_ATTRIBUTE_HIDDEN) <> 0 Then Msg = Msg & "ノーマル" & vbCr
If (Attr And FILE_ATTRIBUTE_READONLY) <> 0 Then Msg = Msg & "書込み禁止" & vbCr
If (Attr And FILE_ATTRIBUTE_SYSTEM) <> 0 Then Msg = Msg & "システム" & vbCr
If (Attr And FILE_ATTRIBUTE_TEMPORARY) <> 0 Then Msg = Msg & "一時ファイル/ディレクトリ" & vbCr
'属性の表示
MsgBox Msg
End Sub
(original text:1998/12/25 更新)
本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。