使用VBA获取外部文件标题和标签信息

有一个问题，如何从属性窗口使用VBA代码获取外部文件标题和标记信息？ 我曾尝试在VBA中使用此代码：

Dim sFile As Variant Dim oShell: Set oShell = CreateObject("Shell.Application") Dim oDir: Set oDir = oShell.Namespace("C:\Users\vadis\Desktop\folderis\") For Each strFileName In oDir.Items For i = 0 To 134 MsgBox (oDir.GetDetailsOf(strFileName, i)) Next Next 

但它不提供文件的标题和标签信息（仅给出date_created和ownder信息）。 我的文件属性在这里：