Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于怎么查看文件信息的备注


  共有3661人关注过本帖树形打印复制链接

主题：关于怎么查看文件信息的备注
帅哥哟，离线，有人找我吗？
咸鱼
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：398 威望：0 精华：0 注册：2019/11/8 11:12:00 		关于怎么查看文件信息的备注  发帖心情 Post By：2020/1/6 10:41:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
关于怎么查看文件信息的备注
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
咸鱼
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：398 威望：0 精华：0 注册：2019/11/8 11:12:00 		  发帖心情 Post By：2020/1/6 11:33:00 [只看该作者]

再问一下怎么修改

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/6 11:52:00 [只看该作者]

这个不会。百度也没有找到相关用法

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询