使用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

但它不提供文件的标题和标签信息（只提供创建日期和所有者信息）。 我的文件属性在这里：

---

对我有用。标签信息看起来很详细，标题是，但我不这么认为。哪里会有问题？从#5或#7到循环结束，我看不到任何文件属性。文件位置正确吗？是的。它对我唯一有用的是当我使用DSOFile.dll库时