(GetAttr(mypath & MyName) And vbDirectory) = vbDirectory
 GetAttr(mypath & MyName) 取得文件夹的属性  and vbdirectory 文件夹  = vbDirectory 判断是否为文件夹
搞不懂为什么还要加 and vbdirectory
google baidu 找了下没有解答我的问题的郁闷

发GetAttr(string para)上来

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

 

哎 ~

过程应该是列出 C 盘下的所有的目录

------------------------------
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 <> ""                       '取到不为空
' GetAttr 返回一个文件或目录的属性. 返回是一个 整形数据
' Const vbDirectory = 16  代表目录
' AND ,这里是 位运算 不是逻辑运算
' 文件或目录属性 AND 目录属性代码 = 0 或 目录属性代码 ,然后再与目录属性代码比较,相等,则是目录,否则就不是.
If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then
Print myname
End If
myname = Dir()
Loop
End Sub

多谢老师

And vbDirectory 意思是不超过16 这样    理解对不
10000 与10000位运算是 还是10000 也是就 16与16的位运算是16 如果其他属性比较 16 = 16结果为真
00001与10000位运算 就是0  也是就 1与16位运算是0 0<>16 结果为假

[ 本帖最后由 kkllchun 于 2010-1-20 19:13 编辑 ]

运算规则

　　组合\结果\运算符.....And.......Or.........Xor
　　0......0.............0..........0............0
　　1......0.............0..........1............1
　　0......1.............0..........1............1
　　1......1.............1..........1............0

　　简单的说
　　And:同为真时为真
　　Or:同为假时为假
　　Xor:相同为假

----------以上内容来自百度百科-------------
所以
16 and 16 = 16
15 and 16 = 0

位运算   
And

举例:X And &H1000
简单点理解为  把X换算成十六进制后如果第四个位置（从右开始数)上是1的话，其结果就是:&H1000,否则为0
这是检查某个数值中包不包含另外一个参数的最常用的方法.