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

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

 

哎 ~

多谢老师

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 编辑 ]