Private Sub cmdOK_Click()
    Dim nAttr As Integer
    nAttr = 0 '属性变量初始化
    '根据复选框的值，来决定文件或者文件夹的属性
    If chkNormal.Value = 1 Then nAttr = nAttr + vbNormal
    If chkReadOnly.Value = 1 Then nAttr = nAttr + vbReadOnly
    If chkHidden.Value = 1 Then nAttr = nAttr + vbHidden
    If chkSystem.Value = 1 Then nAttr = nAttr + vbSystem
    If chkArchive.Value = 1 Then nAttr = nAttr + vbArchive
   
    '设置文件或者文件夹的属性
    mFileDir.Attributes = nAttr

    Unload frmAttribute
End Sub
我想问下 nAttr=0 有身们作用，还有属性设置时，例如：
If chkNormal.Value = 1 Then nAttr = nAttr（这个nAttr不是0吗，有什么作用） + vbNormal

如果你直接要显示隐藏文件，那么就是“mFileDir.Attributes=vbHidden”，能理解？
如果又要隐藏又要系统，那么就是“...=vbHidden + vbSystem”。

问题是，你有5个Yes和No的问题，如果你要照上面的方法写的话要写32个赋值，所以用一个临时变量nAttr来存储过程中的值。

至于为什么这些东西居然可以相加，你可以看看这些变量的值，联系二进制知识。

明白，谢谢啊