GetAttr(mypath & myname) And vbDirectory) = vbDirectory如何理解

朱离

其中的and运算不能理解其中的逻辑，在立即窗口试了几个例子，结果如下
?1 and 9
1
?9 and 1
1
?7 and 8
0
? 2 and 8
0
? 19 and 8
0
? 9 and 8
8
?8 and 5
0
其中的and运算规则是怎么样的。
第二，GetAttr(mypath & myname) And vbDirectory的返回值可能是0，或者是vbDirectory。那么为什么不直接用GetAttr(mypath & myname)  = vbDirectory。

附件大概是这个子的，网上找的
Private Sub Command1_Click()
Dim myfile, mypath, myname
myfile = Dir("c:\*.txt")
myfile = Dir()
myfile = Dir("*.bmp", vbHidden)

mypath = "c:\"
myname = Dir(mypath, vbDirectory)
Do While myname <> ""
If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then
Print myname
End If
myname = Dir()
Loop
End Sub

山菊花

1 and 9 是位比较计算，把十进制数转换成二进制数如下：
1：0001
9：1001
相同位的两个数比较，如果都是1，则and的结果为1，否则为0，结果是：0001，转换成十进制也是1。
用dec2bin()函数可将十进制转换成二进制，dec2bin(8)=1000
不难理解，9 and 8 的结果，就是8。

一般情况下用GetAttr(mypath & myname)  = vbDirectory也是可以的。

GetAttr()返回文件或文件夹的属性。关键要注意的一点是，返回文件或文件夹属性的总和。
如果mypath & myname是一个普通文件夹，GetAttr()返回vbDirectory（即是16），如果这个文件夹被隐藏，则结果为18。所以，用GetAttr(mypath & myname)  = vbDirectory判断是不准确的。
因为16 and 16=16，18 and 16=16。所以，使用and的用法是正确的。