VBA中DIR用法举例(2)

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的用法已经解说完毕，希望补充和指正。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VBA中DIR用法举例(2)在线全文阅读。