Фильтрация системных файлов по пути к файлам с помощью VBA

Question

Даниэль предоставил приведенный ниже VBA для извлечения даты из пути к файлу, который отлично работает.

Sub test()

Dim MyPath As String, mps As Variant, mps_temp As String, mydate As Date, i As Integer

MyPath = "G:\Inbox\Folder1\Received\2019 03 01\2019 03 02\2019 03 05\Final"
mps = Split(MyPath, "\")

For i = LBound(mps) To UBound(mps)
    mps_temp = mps(UBound(mps) - i)
    If mps_temp Like "#### ## ##" Then
        mydate = DateSerial(Mid(mps_temp, 1, 4), Mid(mps_temp, 6, 2), Mid(mps_temp, 9, 2))
        Exit For
    End If
Next

msgbox mydate 

End Sub

Другие возвращенные элементы перечислены на листе Excel, чтобы обеспечить полную инвентаризацию всех файлов.Системные файлы (например, «thumbs.db») не должны быть включены в этот инвентарь.Я хочу сделать это на уровне VBA, а не отфильтровывать на листе впоследствии.

Я хочу вернуть .pdf, .txt, .doc.Я не хочу .db или временных файлов любого рода.Я могу добавить пользовательский ввод для типа файла в будущем.