GetAttr 函式

會傳回 Integer ，代表檔案、目錄或資料夾的屬性。

語法

GetAttr (路徑名稱)

必要的pathname自變數是指定檔名的字串表達式。 pathname 可包含目錄或資料夾，以及磁碟機。

傳回值

GetAttr 傳回的值是下列屬性值的總和：

常數	值	描述
vbNormal	0	一般。
vbReadOnly	1	唯讀。
vbHidden	2	隱藏。
vbSystem	4	系統檔。 在 Macintosh 上不適用。
vbDirectory	16	目錄或資料夾。
vbArchive	32	自上次備份之後，檔案已變更。 在 Macintosh 上不適用。
vbAlias	64	指定的檔案名稱為別名。 僅適用 Macintosh。

注意事項

這些常數是由 Visual Basic for Applications 所指定。 您可以在程式代碼中的任何位置使用名稱來取代實際值。

註解

若要判斷已設定的屬性，請使用 And 運算符，對 GetAttr 函式所傳回的值和您想要的個別檔屬性值執行位比較。 如果結果不是零，則會為具名檔案設定該屬性。 例如，如果未設定 Archive 屬性，則下列 And 表達式的傳回值為零：

Result = GetAttr(FName) And vbArchive

如果已設定 Archive 屬性，則會傳回非零值。

範例

這個範例會使用 GetAttr 函式來判斷檔案和目錄或資料夾的屬性。 在 Macintosh 上，只有 vbNormal、 vbReadOnly、 vbHidden 和 vbAlias 常數可供使用。

Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE")    ' Returns 2.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And vbHidden    

' Assume file TESTFILE has hidden and read-only attributes set.
MyAttr = GetAttr("TESTFILE")    ' Returns 3.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)    

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR")    ' Returns 16.

另請參閱

• 函式 (Visual Basic for Applications)

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。