admin 管理员组文章数量: 1087139
2024年6月8日发(作者：catalog怎么记)
vba dir函数用法
VBADir数，也称为 Visual Basic for Applications录功能，
是指在 Excel作表中执行的一类特殊操作。它可以用来在文件夹中
寻找指定的文件或文件夹。Dir数可以用来读取磁盘中指定的文件和
文件夹的详细信息，包括文件名、文件大小、文件类型等。
VBA Dir数的基本用法
VBA Dir数的基本用法如下：
Dir(path)
其中 path指要搜索的文件夹或文件路径。
如果要查找指定文件夹内的文件，可以使用如下 Dir数语法：
Dir(path, Attribute)
其中 path指要搜索的文件夹，Attribute指要搜索的文件属性，
可用通过下列值来指定文件的属性：
0 vbNormal：表示搜索正常文件。
1 vbReadOnly：表示搜索只读文件。
2 vbHidden：表示搜索隐藏文件。
4 vbSystem：表示搜索系统文件。
8 vbVolume：表示搜索卷标。
16 vbDirectory：表示搜索文件夹。
32 vbAlias：表示搜索文件别名。
VBA Dir数如何使用
VBA Dir数可以用来检索指定文件夹内的文件或文件夹，并获取
- 1 -
相关信息，例如文件名、文件大小、文件类型等。可以使用以下 VBA
代码来获取指定文件夹内的所有文件的详细信息：
Sub ListFiles()
Dim MyPath As String
义目标文件夹
MyPath = C:myFolder
义文件名变量
Dim FileName As String
置 FileName量为第一个文件的文件名
FileName = Dir(MyPath & *.txt vbNormal)
Do Until FileName =
印文件的详细信息
FileName
置 FileName量为下一个文件的文件名
FileName = Dir
Loop
End Sub
上例中， Dir数用来获取 MyPath指定路径中,后缀为txt的文
件名，vbNormal定寻找的文件类型，以此类推，可以查找指定路径
下的其它类型文件。 Do Until环用来循环处理查找到的文件，
数用来打印文件的详细信息。
VBA Dir数的实用技巧
- 2 -
果要在 Excel作表中列出指定文件夹下所有文件的名称，可以
使用如下代码：
Sub ListFiles()
Dim MyPath As String
义目标文件夹
MyPath = C:myFolder
义文件名变量
Dim FileName As String
置 FileName量为第一个文件的文件名
FileName = Dir(MyPath & *.txt vbNormal)
置当前行索引变量
Dim i As Integer
i = 1
Do Until FileName =
文件名输出到 Excel作表中
Cells(i, 1).Value = FileName
置 FileName量为下一个文件的文件名
FileName = Dir
新当前行索引
i = i + 1
Loop
End Sub
- 3 -
果要搜索磁盘中指定类型的文件，可以使用 Dir数的另一种用
法：
FileName = Dir(C:MyDocuments*.xlsx
可以使用相同的语法搜索文件夹：
FolderName = Dir(C:MyDocuments* vbDirectory)
果要提取文件扩展名，可以使用 Split数：
Filename = Dir(C:
取文件扩展名
FileExtension = Split(Filename, .)(1)
以上例中， Split数将 Filename割为两个字符串，第一个字符
串是文件名，第二个字符串是文件扩展名。
结论
VBA Dir数是一个非常有用的函数，可以用来获取磁盘中指定文
件夹的文件或文件夹的详细信息，包括文件名、文件大小、文件类型
等。此外，还可以通过它来获取文件扩展名。
- 4 -
版权声明：本文标题：vba dir函数用法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1717835681a713488.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论