深入探究VbaDir函数

一、VbaDir函数用法

VbaDir函数用来返回指定文件夹内的文件名、目录名或其他数据。

Public Function VbaDir(ByVal PathName As String) As String

参数：

• PathName：字符串类型，必需，要返回其信息的以零或多个字符构成的字符串表达式（包含在引号中）。

返回值：

• 如果存在指定文件夹，则返回一个包含该文件夹内容的字符串。字符串由一个或多个名称、由 Tab 字符分隔的元素或者空字符串组成，这些元素代表文件名、目录名或其他类型的文件系统对象。
• 如果路径名称不存在，VbaDir返回一个空字符串("")。

二、VbaDir函数遍历文件时顺序

使用VbaDir函数遍历文件时，返回的文件名顺序是按照字母排序的。

比如以下代码：

Dim path As String
Dim fileName As String
path = "C:\temp\"
fileName = Dir(path)
Do While fileName <> ""
    Debug.Print fileName
    fileName = Dir
Loop

会依次输出文件夹"C:\temp"内的文件名，按照字母顺序排序。

三、VbaDir函数返回文件名

使用VbaDir函数可以返回指定路径中的文件名。

比如以下代码：

Dim path As String
Dim fileName As String
path = "C:\temp\example.txt"
fileName = Dir(path)
If fileName <> "" Then
    Debug.Print "文件名：" & fileName
End If

会输出文件名"example.txt"。

四、VbaDir函数什么意思

VbaDir函数在VBA中用来返回指定文件夹内的文件名、目录名或其他数据。

它与Dir函数相似，但可在指定文件夹中搜索文件。相反，Dir仅返回满足文件名模式（如果存在）的第一个文件名。

五、VbaDir函数遍历顺序

VbaDir函数遍历文件时返回的文件名顺序默认是按字母排序的。

如果需要按其他规则排序，可以自己编写排序算法。

六、VbaDir提取文件夹名称

使用VbaDir函数可以提取路径中的文件夹名称。

比如以下代码：

Dim path As String
Dim folderName As String
path = "C:\temp\example.txt"
folderName = Left(path, InStrRev(path, "\") - 1)
Debug.Print "文件夹名称：" & folderName

会输出文件夹名称"temp"。

七、VbaDir遍历所有文件夹

使用VbaDir函数无法遍历所有文件夹，但可以通过递归调用来实现遍历。

比如以下代码：

Sub RecurFolder(ByVal path As String)
    Dim fileName As String
    fileName = Dir(path)
    Do While fileName <> ""
        If InStr(fileName, ".") = 0 Then '判断是文件夹
            Debug.Print "文件夹名：" & fileName
            RecurFolder (path & fileName & "\")
        End If
        fileName = Dir
    Loop
End Sub

Sub Test()
    RecurFolder ("C:\temp\")
End Sub

会输出文件夹"C:\temp\"内所有子文件夹的名称。

八、VbaDir遍历文件时顺序怎么选取

VbaDir函数遍历文件时默认按字母排序，如果需要按照创建时间、修改时间等其他规则排序，则需要编写自己的排序算法。

比如以下代码实现按照文件大小排序：

Type fileStruct
    name As String
    size As Long
End Type

Sub sortBySize(ByVal path As String)
    Dim myArr() As fileStruct
    Dim fileName As String
    Dim i As Integer
    Dim j As Integer
    Dim temp As fileStruct
    fileName = Dir(path)
    i = 0
    Do While fileName <> ""
        If InStr(fileName, ".") <> 0 Then '判断是文件
            ReDim Preserve myArr(i)
            myArr(i).name = fileName
            myArr(i).size = FileLen(path & fileName)
            i = i + 1
        End If
        fileName = Dir
    Loop
    For i = LBound(myArr) To UBound(myArr) - 1
        For j = i + 1 To UBound(myArr)
            If myArr(i).size > myArr(j).size Then
                temp = myArr(j)
                myArr(j) = myArr(i)
                myArr(i) = temp
            End If
        Next j
    Next i
    For i = LBound(myArr) To UBound(myArr)
        Debug.Print myArr(i).name, myArr(i).size
    Next i
End Sub

Sub Test()
    sortBySize ("C:\temp\")
End Sub

会按照文件大小从小到大输出文件名和大小。