从动态更改的文件夹结构（vba）获取文件名

Question

我有一个文件夹，其中包含另外四个文件夹。

• 20180304
• 20180412
• 20180622
• 20170702

我想看看何时获得搜索到的文件，因此我需要在这些文件夹中查找文件，并以动态方式查找连接的文件夹名称。我该怎么做？预先感谢。

Answer 1

一旦提供了根文件夹，就可以使用For Each循环。

示例：

  

创建FileSystemObject的实例

Set objFSO = CreateObject("Scripting.FileSystemObject")

  

获取文件夹对象

Set objFolder = objFSO.GetFolder("C:\Temp")

  

循环浏览目录中的每个文件夹

For Each objSubFolder In objFolder.subfolders
    **Handle Code Goes Here**
Next objSubFolder

因此，在这种情况下，您现在有了提供的根文件夹的每个子文件夹（C：\ Temp），您可以执行以下操作来获取信息：

String1 = objSubFolder.Path 
String 2 = objSubFolder.Name