VBA遍历文件夹下所有folder,并获取folder name
时间: 2024-11-22 17:46:04 浏览: 187
在VBA中,你可以使用`Scripting.FileSystemObject`对象来遍历文件夹及其子文件夹,获取每个文件夹的名称。以下是一个基本的示例,展示如何获取指定目录下的所有子文件夹名称:
```vba
Sub ListFolderNames()
Dim objFSO As FileSystemObject
Dim objFolder As Folder
Dim strFolderPath As String
Dim strName As String
' 设置要遍历的文件夹路径
strFolderPath = "C:\path\to\your\directory" ' 替换为你需要检查的文件夹路径
' 创建FileSystemObject实例
Set objFSO = New FileSystemObject
' 获取文件夹对象
Set objFolder = objFSO.GetFolder(strFolderPath)
' 遍历文件夹及子文件夹
If Not objFolder Is Nothing Then
For Each objSubFolder In objFolder.SubFolders
strName = objSubFolder.Name ' 存储当前文件夹的名称
Debug.Print "Folder Name: " & strName ' 打印文件夹名称,你可以选择其他方式记录
Next objSubFolder
Else
MsgBox "Folder not found."
End If
Set objFolder = Nothing
Set objFSO = Nothing
End Sub
```
在这个例子中,程序会打印出指定文件夹下所有子文件夹的名称。如果文件夹不存在,将会显示一个消息框提示。
阅读全文
相关推荐


















