Attributes
Attributes
Attributes屬性設置或返迴文件或文件夾的屬性。可讀寫或只讀（與屬性有關）
目錄
object.Attributes [= newattributes]
參數object
必選項。應為 File 或 Folder 對象的名稱。
newattributes
可選項。如果指定此參數，則 newattributes 為指定的 object 的屬性的新值。
設置newattributes 參數可為下列設置之一或下列設置的合理組合：
| 常數 | 值 | 描述 |
| Normal | 普通文件。沒有設置任何屬性。 | |
| 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 IfEnd Function