经验首页 前端设计 程序设计 Java相关 移动开发 数据库/运维 软件/图像 大数据/云计算 其他经验
当前位置:技术经验 » 程序设计 » VB.Net » 查看文章
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

 

 

 友情链接: NPS  问卷模板