Attributes屬性設定或返回檔案或資料夾的屬性。可讀寫或唯讀（與屬性有關）。
object.Attributes [= newattributes]
參數object
必選項。應為 File 或 Folder 對象的名稱。
基本介紹
- 中文名：Attributes
- 屬性：返回檔案或資料夾的屬性。
- 參數：object
- 必選項：應為 File 或 Folder 對象名稱
定義,合理組合,
定義
newattributes
可選項。如果指定此參數，則 newattributes 為指定的 object 的屬性的新值。
asdf
合理組合
設定newattributes 參數可為下列設定之一或下列設定的合理組合：
常數 | 值 | 描述 |
Normal | 0 | 普通檔案。沒有設定任何屬性。 |
ReadOnly | 1 | 唯讀檔案。可讀寫。 |
Hidden | 2 | 隱藏檔案。可讀寫。 |
System | 4 | 系統檔案。可讀寫。 |
Directory | 16 | 資料夾或目錄。唯讀。 |
Archive | 32 | 上次備份後已更改的檔案。可讀寫。 |
Alias | 1024 | 連結或捷徑。唯讀。 |
Compressed | 2048 | 壓縮檔案。唯讀。 |
說明忽略對唯讀屬性（別名，壓縮或目錄）所作的改變.
當設定屬性時，應首先閱讀當前屬性，然後按要求改變個別屬性，最後反寫屬性.
以下代碼舉例說明如何使用 Attributes 屬性：
Function ToggleArchiveBit(filespec)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
If f.attributes and 32 Then
f.attributes = f.attributes - 32
ToggleArchiveBit = "清空歸檔位。"
Else
f.attributes = f.attributes + 32
ToggleArchiveBit = "設定歸檔位。"
End If
End Function
