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

Question

有一个问题如何使用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和拥有者信息）。 我的文件属性在这里：