循环和分析目录中的所有文件并创建新的子目录？

Question

我之前使用 dir 函数来循环和分析文件，但我想添加其他内容 - 在工作目录中创建两个子目录，其中存储输出文件。

分析目录中的第一个文件，并将每个输出存储在新创建的子目录中。但是，一旦循环重新开始， dir() 会返回：""并将我踢出循环。

这是我到目前为止所拥有的：

Sub ProcessHCTFiles()
Dim Filename, Pathname As String
Dim wb As Workbook
Dim WrkngDir

Application.ScreenUpdating = False
Pathname = ActiveWorkbook.Path & "\ForReports\"
Filename = Dir(Pathname & "*.xls")
    Do While Filename <> ""
        Set wb = Workbooks.Open(Pathname & Filename)
        CRprts wb, Pathname
        wb.Activate
        WrkngDir = ActiveWorkbook.Path
        wb.Close SaveChanges:=False
        Filename = Dir()
    Loop
    Application.ScreenUpdating = True
End Sub

重要的是要注意宏文件存储在存储要分析的文件的父目录中，即这一行：

 Pathname = ActiveWorkbook.Path & "\ForReports\"

和

 Filename = Dir(Pathname & "*.xls")