Получение метаданных тега с помощью Shell

Question

Хотелось бы, чтобы вы помогли мне получить все метаданные тега из папки и ее подпапок с помощью оболочки.Код сохранит в файле csv или txt все найденные метаданные тега.С помощью кода ниже можно получить только для указанной папки.Я хочу расширить его подпапки.Кто-нибудь может мне помочь?

Dim vrFile As Variant
Dim objShell: Set objShell = CreateObject("Shell.Application")

Dim objDirectory:   Set objDirectory = objShell.Namespace("C:\MY FOLDER\")

For Each vrFile In objDirectory.Items
   If Len(Trim(objDirectory.GetDetailsOf(vrFile, 18))) > 0 Then
   'Writes the Tag of the file using objDirectory.GetDetailsOf(vrFile, 18)
    Else
   End If
Next