使用Shell检索标签元数据

Question

在如何使用Shell从文件夹及其子文件夹中检索所有标签元数据方面，我希望您能提供帮助。 该代码会将找到的所有标记元数据保存在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