低运行时间（当前>3小时）的VBA循环遍历特定的子文件夹

以下是一个示例代码，演示如何使用VBA循环遍历特定的子文件夹，并筛选出低运行时间大于3小时的文件：

Sub LoopThroughSubfolders()
    Dim FSO As Object
    Dim parentFolder As Object
    Dim subFolder As Object
    Dim file As Object
    Dim startTime As Date
    
    ' 设置父文件夹路径
    Const parentFolderPath As String = "C:\YourParentFolder\"
    
    ' 创建文件系统对象
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取父文件夹对象
    Set parentFolder = FSO.GetFolder(parentFolderPath)
    
    ' 循环遍历子文件夹
    For Each subFolder In parentFolder.Subfolders
        ' 循环遍历子文件夹中的文件
        For Each file In subFolder.Files
            ' 检查文件运行时间是否大于3小时
            startTime = file.DateCreated
            If DateDiff("h", startTime, Now) > 3 Then
                ' 在这里可以添加你的处理代码
                ' 例如，打印文件路径
                Debug.Print file.Path
            End If
        Next file
    Next subFolder
    
    ' 释放对象
    Set file = Nothing
    Set subFolder = Nothing
    Set parentFolder = Nothing
    Set FSO = Nothing
    
End Sub

请确保将"C:\YourParentFolder\"替换为你实际的父文件夹路径。在示例代码中，我们使用DateDiff函数来计算文件的运行时间（以小时为单位），并与3进行比较。如果文件的运行时间大于3小时，则执行你需要的处理代码（在示例中，我们只是打印文件的路径）。你可以根据自己的需求进行修改和扩展。