以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于怎么查看文件信息的备注  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145015)
--  作者：咸鱼
--  发布时间：2020/1/6 10:41:00
--  关于怎么查看文件信息的备注

图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
关于怎么查看文件信息的备注
--  作者：有点蓝
--  发布时间：2020/1/6 11:11:00
--  
Dim sh  = CreateObject("Shell.Application")
Dim file As String = "E:\\问题\\abc.mp3"
Dim dir As object  = sh.NameSpace("E:\\问题\\")
Dim item As object  = dir.ParseName("abc.mp3")

Dim idx As Integer = -1
For i As Integer = 0 To 100
    Dim s As String = dir.GetDetailsOf(Nothing, i)
    If s Like "*备注*" Then
        idx = i
        Exit For
    End If
Next
if idx > -1 ‘有备注项
Dim s1 As String = dir.GetDetailsOf(item, idx)
Output.Show("备注=" & s1)
end if
--  作者：咸鱼
--  发布时间：2020/1/6 11:33:00
--  
再问一下怎么修改
--  作者：有点蓝
--  发布时间：2020/1/6 11:52:00
--  
这个不会。百度也没有找到相关用法