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

我曾经使用dir函数来循环和分析文件，但是我想添加其他的东西 – 在存储输出文件的工作目录中创build两个子目录。

目录中的第一个文件被分析，每个输出存储在新创build的子目录中。 但是，一旦循环开始， 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 

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

  Pathname = ActiveWorkbook.Path & "\ForReports\" 

和

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