全民一起VBA实战篇 专题4 第四回 位运算处理零一变换，属性值识别文件类型

 

相关知识点：

GetAttr 函数，文件或文件夹的名字，返回一个数字，代表该文件的各种属性。

 

位运算（逻辑尺）：and（按位与，位乘），将判断的属性值与属性返回的数值and，计算结果为判断的属性值，则此文件夹具备此属性，否则不具备。

 

例1得到子文件夹的名字(返回不仅是文件夹的名字还有文件的名字)

 

Sub dirdemo()

       Dim fname as string, i as long

       i=1

       fname=dir(“d:\vbademo\”, vbdirectory)

       Do While fname<>””