欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Microsoft® Visual Basic® Scripting Edition
Attributes 屬性		  語(yǔ)言參考
版本 3

請(qǐng)參閱                   應(yīng)用于

描述
設(shè)置或返回文件或文件夾的屬性。可讀寫(xiě)或只讀（與屬性有關(guān)）。
語(yǔ)法
object.Attributes [= newattributes]

Attributes 屬性的語(yǔ)法有以下部分：

部分 描述
object 必選。應(yīng)為 File 或 Folder 對(duì)象的名稱(chēng)。
newattributes 可選。如果指定此參數(shù)，則 newattributes 為指定的 object 的屬性的新值。

設(shè)置
newattributes 參數(shù)可為下列設(shè)置之一或下列設(shè)置的合理組合：

常數(shù) 值 描述
Normal 0 普通文件。沒(méi)有設(shè)置任何屬性。
ReadOnly 1 只讀文件�？勺x寫(xiě)。
Hidden 2 隱藏文件�？勺x寫(xiě)。
System 4 系統(tǒng)文件�？勺x寫(xiě)。
Volume 8 磁盤(pán)驅(qū)動(dòng)器卷標(biāo)。只讀。
Directory 16 文件夾或目錄。只讀。
Archive 32 上次備份后已更改的文件。可讀寫(xiě)。
Alias 64 鏈接或快捷方式。只讀。
Compressed 128 壓縮文件。只讀。

說(shuō)明
以下代碼舉例說(shuō)明如何使用 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("已設(shè)置 Archive 位，是否確定清除？", vbYesNo, "設(shè)置/清除 Archive 位")
      If r = vbYes Then 
          f.attributes = f.attributes - 32
          MsgBox "已清除 Archive 位。"
      Else
          MsgBox "保留 Archive 位設(shè)置。"
      End If
  Else
      r = MsgBox("未設(shè)置 Archive 位。是否確定設(shè)置？", vbYesNo, "設(shè)置/清除 Archive 位")
      If r = vbYes Then 
          f.attributes = f.attributes + 32
          MsgBox "已設(shè)置 Archive 位。"
      Else
          MsgBox "未設(shè)置 Archive 位。"
      End If
  End If
End Sub