Attributes 屬性

設定或傳回檔案或資料夾的屬性。 視 屬性而定，可讀寫的或唯讀的。

語法

物件。屬性 [= newattributes ]

Attributes屬性具有下列部分：

部分	描述
物件	此為必要動作。 一律是 File 或 Folder 物件的 名稱。
newattributes	選用。 如果提供， newattributes 就是指定 物件之屬性的新值。

設定

newattributes 自變數可以具有下列任何值或下列值的任何邏輯組合。

常數	值	描述
一般	0	一般檔案。 未設定任何屬性。
ReadOnly	1	唯讀檔案。 屬性是可讀寫的。
隱藏	2	隱藏的檔案。 屬性是可讀寫的。
System	4	系統檔案。 屬性是可讀寫的。
Volume	8	磁片磁碟機磁片區標籤。 屬性是唯讀的。
Directory	16	資料夾或目錄。 屬性是唯讀的。
封存	32	自上次備份之後，檔案已變更。 屬性是可讀寫的。
Alias	1024	連結或快捷方式。 屬性是唯讀的。
壓縮	2048	壓縮的檔案。 屬性是唯讀的。

註解

下列程式碼說明如何搭配檔案使用 Attributes 屬性。

Sub SetClearArchiveBit(filespec)
    Dim fs, f, r
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(fs.GetFileName(filespec))
    If f.attributes and 32 Then
        r = MsgBox("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
            f.attributes = f.attributes - 32
            MsgBox "Archive bit is cleared."
        Else
            MsgBox "Archive bit remains set."
        End If
    Else
        r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
f.attributes = f.attributes + 32
            MsgBox "Archive bit is set."
        Else
            MsgBox "Archive bit remains clear."
        End If
    End If
End Sub

另請參閱

• 物件 (Visual Basic for Applications)
• Visual Basic 語言參考

支援和意見反應

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