3、dir应用
（1）返回指定文件夹所有文件和文件夹名，开头的一段代码已经介绍了这个功能，这里不在重复。 （2）返回指定文件夹所有子文件夹名
代码如下，代码与开篇代码差不多，只是在循环过程中多了一个getattr函数的判断，getattr函数用于返回文件或文件夹名的属性，也就是dir第二参数几个常数的和，如果要判断一个文件或文件夹是否包含某种属性，可用getattr获得文件或文件夹的属性后，在用该属性值与某种属性对应的常数做and运算，数字间的and运算实际是一种二进制的对应位数相乘运算（不知道这个说法准不准确），如一个隐藏的文件夹，用getattr获得的属性是vbdirectory+vbhidden的和也就是18，换算成二进制是10010，如果要判断该文件是不是文件夹，可用18与vbdirectory做and运算，也就是10010*10000，对应位数得到10000，与vbdirectory相等，也就是该文件是文件夹，如果要判断该文件是否隐藏，可用18与vbhidden做and运算，结果可想而知。 Sub 获取文件名()
Dim str1 As String, str2 As String, i As Integer
Set a = Application.FileDialog(msoFileDialogFolderPicker) a.Show
str1 = a.SelectedItems(1)
str2 = Dir(str1 & IIf(Right(str1, 1) = \Do While Len(str2) <> 0
If str2 <> \
If (GetAttr(str1 & IIf(Right(str1, 1) = \vbDirectory) = vbDirectory Then
i = i + 1 Cells(i, 1) = str2
Cells(i, 2) = GetAttr(str1 & IIf(Right(str1, 1) = \& str2) End If End If
str2 = Dir Loop End Sub
指定文件夹，里面有个隐藏的文件夹vb
运行后效果
（3）获取某文件夹下所有文件名
代码与第二段差不多，(GetAttr(str1 & IIf(Right(str1, 1) = \str2) And vbDirectory)=vbDirectory这句代码中的等号换成了“<>”,具体效果不演示了。
Sub 获取文件名()
Dim str1 As String, str2 As String, i As Integer
Set a = Application.FileDialog(msoFileDialogFolderPicker) a.Show
str1 = a.SelectedItems(1)
str2 = Dir(str1 & IIf(Right(str1, 1) = \Do While Len(str2) <> 0
If str2 <> \
If (GetAttr(str1 & IIf(Right(str1, 1) = \vbDirectory) <> vbDirectory Then i = i + 1 Cells(i, 1) = str2
Cells(i, 2) = GetAttr(str1 & IIf(Right(str1, 1) = \str2) End If End If str2 = Dir Loop End Sub
（4）获取某个文件下某种类型的文件。
如我们经常要获取某个文件夹有多少excel文件，然后将该文件的内容复制到一个文件当中去，代码如下，dir第一参数改为了str1 & IIf(Right(str1, 1) = \，使用了通配符，如果要获取其他类型的文件，可将xls换成其他的扩展名，如要获取文件夹中的所有以jpg结尾的图片，可将第一参数改为str1 & IIf(Right(str1, 1) = \\。 Sub 获取某种类型文件()
Dim str1 As String, str2 As String, i As Integer
Set a = Application.FileDialog(msoFileDialogFolderPicker) a.Show
str1 = a.SelectedItems(1)
str2 = Dir(str1 & IIf(Right(str1, 1) = \Do While Len(str2) <> 0 i = i + 1 Cells(i, 1) = str2
Cells(i, 2) = GetAttr(str1 & IIf(Right(str1, 1) = \str2 = Dir Loop End Sub
与第二段代码指定的文件夹相同，运行的效果如下：
至此dir的用法已经解说完毕，希望补充和指正。