附註: 如果 Microsoft Jet Expression Service 在沙箱模式中執行,會停用本主題中所述的函數、方法、物件或屬性,以免評估可能不安全的表達式。 如需沙盒模式的詳細資訊,請在 [說明] 中搜尋「沙盒模式」。
傳 回代表檔案 、目錄或資料夾屬性的整數。
語法
GetAttr ( pathname )
必要的 路徑名稱引數 是指定檔名的 字串運算式 。 路徑名稱可能包含目錄或資料夾,以及磁碟驅動器。
傳回值
GetAttr 傳回的值是下列屬性值的總和:
常數 |
值 |
描述 |
vbNormal |
0 |
正常。 |
vbReadOnly |
1 |
唯讀。 |
vbHidden |
2 |
隱藏。 |
vbSystem |
4 |
系統檔案。 無法在 Macintosh 上使用。 |
vbDirectory |
16 |
目錄或資料夾。 |
vbArchive |
32 |
自上次備份以來,檔案已變更。 無法在 Macintosh 上使用。 |
vbAlias |
64 |
指定的檔名是別名。 僅適用於Macintosh。 |
附註: 這些常數是由 Visual Basic for Applications 指定。 名稱可用於代碼中的任何位置,以取代實際值。
註解
附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊,請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考],並在 [搜尋] 方塊中輸入一個或多個字詞。
若要判斷要設定哪些屬性,請使用 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.