Dir函数 - 技术经验

Dir函数

来源：cnblogs　　作者：Ione_fox　　时间：2019/1/10 9:25:57　　对本文有异议

返回一个 String，它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。

语法

Dir[(pathname、 [属性])]

Dir 函数语法具有以下部分：

部分	说明
pathname	可选。字符串表达式，指定一个文件名;可能包含目录或文件夹，和驱动器。零长度字符串 ("") 将返回如果_pathname_找不到。
属性	可选。常量或数值表达式，其和指定的文件属性。如果省略，则返回的匹配_路径名_但没有属性的文件。

设置

Attributes 参数设置为：

常量	值	说明
vbNormal	0	（默认）指定没有属性的文件。
vbReadOnly	1	指定只读文件以及不带属性的文件。
vbHidden	2	指定隐藏文件以及不带属性的文件。
vbSystem	4	指定系统文件文件以及不带属性。在 Macintosh 中不可用。
vbVolume	8	指定卷标;如果指定任何其他属性，则忽略vbVolume 。在 Macintosh 中不可用。
vbDirectory	16	指定目录或文件夹以及不带属性的文件。
vbAlias	64	指定的文件名为别名。仅在 Macintosh 上可用。

例子：遍历当前路径下的TXT文档

Sub DirTest()
    Dim FilePath As String, FileName As String
    FilePath = ThisWorkbook.Path & "\"
    FileName = dir(FilePath & "*.txt")
    
    Do While FileName <> ""
        Debug.Print FileName
        FileName = dir
    Loop
End Sub

友情链接：直通硅谷　点职佳　北美留学生论坛

VB.Net热门文章

ExcelVBA实现一键生成word文字报告及批量操作[原创]

VBA实战 - 一个简单的 httplib

Name方法

excel身份证验证（附带防止粘贴导致校验失效的函数）

kill方法

Dir函数

分享下最近基于Avalonia UI和MAUI写跨平台时间管理工具的体验

VBA基础 - 函数和模块

effective VBA

C#?VB.NET?实现在Word中嵌入多媒体(视频、音频)文件

VB.Net推荐文章

分享下最近基于Avalonia UI和MAUI写跨平台时间管理工具的体验

C#/VB.NET：如何从 PowerPoint 演示文稿中提取文本 - Carina-baby

如何通过C#/VB.NET代码在Word中更改字体颜色 - Carina-baby

VBA实战 - 一个简单的 httplib

ExcelVBA实现一键生成word文字报告及批量操作[原创]