ファイルの属性を表示(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 更新)

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