如何修改文件夹属性？

Private Sub ChangeFolderInfo(folderspec)
'folderspec 文件夹名（全路径)
  Dim fs, f, s
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(folderspec)
  f.Attributes = 1
                '0 一般
                '1 只读
                '2 隐藏
                '可以用 + 运算符连接多个End Sub