一、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会按照文件大小从小到大输出文件名和大小。
原创文章，作者：GWJX，如若转载，请注明出处：https://www.506064.com/n/138436.html
微信扫一扫 
支付宝扫一扫 