８３．指定のファイル、ディレクトリの属性を取得する

＜　使用用途　＞
指定のファイル、ディレクトリの属性を取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード　・・・下記のサンプルと同じです。　

　＜　説明　＞
ＡＰＩ関数の　GetFileAttributes　 を使用します
GetFileAttributes＝＞指定のファイル、ディレクトリの属性を取得する
　　＜引数＞
　　　　　lpFileName$：ファイル名
　　＠戻り値＠
　　　　　正常終了-1以外 　 　　　

<　ＳＡＭＰＬＥ　＞
’ここではC:\Windows\Calc.exeの属性を調べる処理です
'標準モジュール
Public Declare Function GetFileAttributes Lib "KERNEL32" Alias "GetFileAttributesA" (ByVal lpFileName$) As Long

Public Const FILE_ATTRIBUTE_ARCHIVE = &H20'アーカイブ属性
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10'ディレクトリ属性
Public Const FILE_ATTRIBUTE_HIDDEN = &H2 '隠しファイル属性
Public Const FILE_ATTRIBUTE_NORMAL = &H80 'ファイル属性を持たない
Public Const FILE_ATTRIBUTE_READONLY = &H1 '読み込み専用属性
Public Const FILE_ATTRIBUTE_SYSTEM = &H4 'システムファイル属性

Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800


'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long

　　 Text1.Text="C:\Windows\Calc.exe"

　 　Ret = GetFileAttributes(Text1.Text)

Select Case Ret

　Case FILE_ATTRIBUTE_ARCHIVE
　　　　 MsgBox "アーカイブ属性"
　Case FILE_ATTRIBUTE_DIRECTORY
　　　　MsgBox "ディレクトリ属性"
　Case FILE_ATTRIBUTE_HIDDEN
　　　　 MsgBox "隠しファイル属性"
　Case FILE_ATTRIBUTE_NORMAL
　　　　 MsgBox "ファイル属性は持っていません"
　Case FILE_ATTRIBUTE_READONLY
　　　　MsgBox "読み込み専用属性"
　Case FILE_ATTRIBUTE_SYSTEM
　　　　 MsgBox "システムファイル属性"

End Select

End Sub