'сканирование подпапок (необходимо подключить библиотеку Microsoft Shell Controls And Automation).
Private Const filterOnlyFolders = 32
Private Const filterOnlyFiles = 64
Private FShell As Shell32.Shell
Private FRow As Long
Private FSheet As Worksheet

Public Sub StartScan()
      Set FSheet = ActiveSheet
      Set FShell = New Shell32.Shell
      FRow = 0
      Scan "c:\Temp", "*" & InputBox("Дата?", "Введите дату дд.мм.гггг", Format(Now(), "dd.mm.yyyy")) & "*"
End Sub

Public Sub Scan(ByVal folderPath As String, SearchDate As String)
      Dim pFolder As Shell32.Folder3
      Dim pItems As Shell32.FolderItems3
      Dim pItem As Shell32.FolderItem

      Set pFolder = FShell.Namespace(folderPath)
      Set pItems = pFolder.Items
      pItems.Filter filterOnlyFolders, SearchDate

      If pItems.Count > 0 Then
          For Each pItem In pItems
              FRow = FRow + 1
              'соответственно вместо записи пути и имени файла можно вызвать что угодно
              FSheet.Cells(FRow, 1).Value = pItem.Path
          Next pItem
      End If
End Sub