Visual Basic Tips

ファイルの属性の取得

知っていれば簡単ですが、知らないと苦労するものの一つです。

Dim ret As Integer
ret = GetAttr([パス名])
Select Case ret
　　Case vbNormal
　　　　MsgBox "通常ファイルです。"
　　Case vbReadOnly
　　　　MsgBox "読み取り専用ファイルです。"
　　Case vbHidden
　　　　MsgBox "隠しファイルです。"
　　Case vbDirectory
　　　　MsgBox "フォルダです。"
　　Case vbArchive
　　　　MsgBox "アーカイブです。"
End Select