2011年12月5日月曜日

[ExcelVBA] GetAttr関数


■構文
GetAttr(pathname)

■説明
ファイルまたはフォルダの属性を表す整数型 (Integer) の整数を返します。
第一引数:ファイルまたはフォルダのパス 
定数内容
vbNormal0通常ファイル
vbReadOnly1読み取り専用ファイル
vbHidden2隠しファイル
vbSystem4システム ファイル
vbDirectory16フォルダ
vbArchive32アーカイブ (属性最後にバックアップした後で、変更されたファイル)

■サンプルコード
Option Explicit

Sub SampleCode()
    Debug.Print GetAttr("C:\WINDOWS") '16
End Sub

0 件のコメント: