項目

ファイル/フォルダの属性を取得する(GetAttr)

概要

GetAttrを利用してファイル/フォルダの属性を取得する事ができます。

例

Option Compare Database
Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++
'■ファイル/フォルダの属性を取得する(GetAttr)
'++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()

    Dim pathName  As String
    Dim msg       As String

    pathName = "c:\temp\test.txt"       '取得するファイルのパス

    'ファイル/フォルダの属性を取得
    Select Case GetAttr(pathName)
    Case vbNormal:    msg = "通常ファイル"
    Case vbReadOnly:  msg = "読み取り専用ファイル"
    Case vbHidden:    msg = "隠しファイル"
    Case vbSystem:    msg = "システム ファイル"
    Case vbDirectory: msg = "フォルダ"
    Case vbArchive:   msg = "アーカイブ "
    Case vbAlias:     msg = "エイリアス ファイル"
    End Select

    'メッセージ出力
    MsgBox msg

End Sub