深入探究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

會按照文件大小從小到大輸出文件名和大小。