FSO中求得文件的属性值是39，怎样得到标准属性描述？还有...

Question

1.FSO中求得文件的属性值是39，怎样得到标准属性描述？2.如下代码可以获得"c:\"下的所有文件，怎样得到这个目录下的文件夹？Set Folder = Fso.GetFolder("c:\")
For Each file In Folder.Files
msgbox file.Name
Next请指教。

Answer 1

Attributes 属性
         描述设置或者返回文件或文件夹的属性。读/写或只读，取决于属性。语法object.Attributes [= newattributes]Attributes 属性有下列几个部分：部分 描述 
object 必需的。总是某个 File 或者 Folder 对象的名字。 
newattributes 可选的。如果提供的话，newattributes 就是所指定 object 的新属性值。 
设置newattributes 参数可以是具有下列值中的任意一个或任意的逻辑组合：常数 值 描述 
Normal 0 一般文件。未设置属性。 
ReadOnly 1 只读文件。属性为读/写。 
Hidden 2 隐藏文件。属性为读/写。 
System 4 系统文件。属性为读/写。 
Volume 8 磁盘驱动器卷标。属性为只读。 
Directory 16 文件夹或目录。属性为只读。 
Archive 32 自上次备份后已经改变的文件。属性为读/写。 
Alias 64 链接或快捷方式。属性为只读。 
Compressed 128 压缩文件。属性为只读。 
说明下面的代码用一个文件举例说明了 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

Answer 2

Archive 32 自上次备份后已经改变的文件。属性为读/写。 
Hidden 2 隐藏文件。属性为读/写。 
System 4 系统文件。属性为读/写。 
ReadOnly 1 只读文件。属性为读/写。你的文件应该是这些属性吧！

Answer 3

第2个问题：
Dim subfolder As Folder
For Each subfolder In mFolder.SubFolders
List3.AddItem subfolder.Name
Next

Answer 4

fso中FileAttribute的常数列表：
Normal 0 一般文件。未设置属性。 
ReadOnly 1 只读文件。属性为读/写。 
Hidden 2 隐藏文件。属性为读/写。 
System 4 系统文件。属性为读/写。 
Volume 8 磁盘驱动器卷标。属性为只读。 
Directory 16 文件夹或目录。属性为只读。 
Archive 32 自上次备份后已经改变的文件。属性为读/写。 
Alias 1024 链接或快捷方式。属性为只读。 
Compressed 2048 压缩文件。属性为只读。 文件的属性值是39：
39=32+4+2+1
即自上次备份后已经改变的文件+系统文件+隐藏文件+只读文件