Vba在特定文件夹含子文件夹中查找名称包含“一个”的文档
时间: 2023-08-02 14:05:10 浏览: 53
您好!针对您的问题,您可以使用以下的 VBA 代码来实现:
```vb
Sub FindFiles()
Dim path As String
Dim folder As String
Dim file As String
Dim found As Boolean
path = "C:\YourFolderPath\" '替换成您要查找的文件夹路径
folder = Dir(path, vbDirectory)
Do While folder <> ""
If folder <> "." And folder <> ".." Then
If (GetAttr(path & folder) And vbDirectory) = vbDirectory Then
FindFilesRecursive path & folder & "\", found
Else
If InStr(1, folder, "一个", vbTextCompare) > 0 Then '检查文件名是否包含“一个”
Debug.Print path & folder
found = True
End If
End If
End If
folder = Dir()
Loop
If Not found Then
Debug.Print "No files found."
End If
End Sub
Sub FindFilesRecursive(ByVal folderPath As String, ByRef found As Boolean)
Dim file As String
file = Dir(folderPath, vbDirectory)
Do While file <> ""
If file <> "." And file <> ".." Then
If (GetAttr(folderPath & file) And vbDirectory) = vbDirectory Then
FindFilesRecursive folderPath & file & "\", found
Else
If InStr(1, file, "一个", vbTextCompare) > 0 Then '检查文件名是否包含“一个”
Debug.Print folderPath & file
found = True
End If
End If
End If
file = Dir()
Loop
End Sub
```
在代码中,我们定义了两个子程序。`FindFiles` 程序用于遍历指定文件夹及其子文件夹并查找包含“一个”的文件,而 `FindFilesRecursive` 程序则用于递归遍历子文件夹。
您只需要将代码中的 `path` 变量替换成您要查找的文件夹路径,然后执行 `FindFiles` 程序即可。程序会打印出所有符合要求的文件路径,如果没有找到任何文件,则会打印出“No files found.”。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![docm](https://img-home.csdnimg.cn/images/20210720083646.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)