vb能否获取电视剧的信息?例如集数等.

'工程-引用 “Microsoft Shell Controls And Automation”

Private Sub Command1_Click()
Dim oDLG
Dim pth As String
Dim Flname As String

Dim shl As Shell32.Shell
Dim shfd As Shell32.Folder
Dim s As String
Dim i As Integer
Set oDLG = CreateObject("MSComDlg.CommonDialog")
With oDLG
.DialogTitle = "打开文件"
.Filter = "所有文件|*.*"
.MaxFileSize = 255
.ShowOpen
If .FileName "" Then
i = InStrRev(.FileName, "\")
If i = 0 Then Exit Sub
Flname = Mid(.FileName, i + 1)
Set shl = New Shell
Set shfd = shl.NameSpace(Left(.FileName, i - 1))

For i = 0 To 39
If shfd.GetDetailsOf(0, i) "" And shfd.GetDetailsOf(shfd.Items.Item(Flname), i) "" Then
s = s & i & ":" & shfd.GetDetailsOf(0, i) & ": " & shfd.GetDetailsOf(shfd.Items.Item(Flname), i) & Chr(10)
End If
Next i
MsgBox s, vbInformation, "文件属性"
End If
End With
Set oDLG = Nothing
End Sub

一般是“全12话”也有用“回”的，不是很多。

13019635337：关于电视剧的
能侨刮 ：答：http://so.56.com/index?type=video&key=%A1%B6%CA%B3%BF%CD%A1%B7 《王和我》 韩国SBS电视台 2007年08月27日首播(韩国每周一、二播放) 主演:吴满锡、具慧善、全慧彬、李真、高周元、全光烈、梁美京 类型:历史、爱情 集数:预计全50集 http://so.56.com/index?type=video&key=%CD%F5%BA%CD%...

13019635337：在哪可以看新出的电视剧呢
能侨刮 ：答：追剧新剧场贴吧（https://tieba.baidu.com/f?ie=utf-8&kw=%E8%BF%BD%E5%89%A7%E6%96%B0%E5%89%A7%E5%9C%BA）优点：新剧比较多，有互动感哈哈哈哈哈（不是，主要自己找不到也可以发帖求助，答复还挺快）缺点：页面信息比较杂乱，需要自行筛选 推荐指数：4星★★★ 3、共享文档 共享资源文...

13019635337：有什么好的公众号可以找到电视剧资源吗?
能侨刮 ：答：追剧新剧场贴吧（https://tieba.baidu.com/f?ie=utf-8&kw=%E8%BF%BD%E5%89%A7%E6%96%B0%E5%89%A7%E5%9C%BA）优点：新剧比较多，有互动感哈哈哈哈哈（不是，主要自己找不到也可以发帖求助，答复还挺快）缺点：页面信息比较杂乱，需要自行筛选 推荐指数：4星★★★ 3、共享文档 共享资源文...

13019635337：有哪些类似《花千骨》的电视剧推荐?
能侨刮 ：答：集数:58集 剧情介绍: 该剧根据唐七同名小说改编,讲述了青丘女君白浅和九重天太子夜华经历三段爱恨纠葛终成眷属的绝美仙恋故事。 推荐理由: 没看《三生三世十里桃花》之前,总觉得它应该是一部甜得齁人的绝美爱情片,结果看了这部电视剧之后才发现,什么三生三世十里桃花嘛,分明是白浅和夜华生生世世虐来虐去才对...

13019635337：怎样可以知道一些新的电视剧的拍摄消息?
能侨刮 ：答：上国家广电总局的网站，里面有电视剧拍摄制作备案公示，都是最新的即将要拍的电视剧，内容很全，这是今年1月的备案公示 http://dsj.sarft.gov.cn/tims/site/views/applications/note/view.shanty?appName=note&id=01266ed841b8031c402881a12645cf8f 参考资料：<a href="http://www.sarft.gov.cn...

13019635337：国产电视剧集数最多的几部电视剧有哪些?
能侨刮 ：答：第一:《外来媳妇本地郎》，好吧，我也没看过这部剧。据说集数已经3000+了。好吧，这么多的集数，我真的很好奇到底都演了些什么……然后我去瞅了一下，介绍如下:外来媳妇本地郎是广东广播电视台拍摄的以粤语为主要语言的一部情景喜剧，描述了广州老城区一个有着四个儿子的大家庭，娶了天南海北的...

13019635337：有哪些集数少但很好看的电视剧?
能侨刮 ：答：1.《微微一笑很倾城》只有30集,非常好看,我觉得集数有点少,但我比较喜欢的,题主的例子是爱情片,这个蛮合适的,可以去试试。 2.《如果蜗牛有爱情》主演有颜值有演技,原著和电视剧都蛮好看的,原本是喜欢王炸cp才去看的原著和电视剧,一看就上瘾了,就是集数太少了。 3.《最好的我们》一部校园爱情片,我蛮喜欢...

13019635337：有哪些集数少但很好看的电视剧?
能侨刮 ：答：2.《灵魂摆渡人》共三季，分别为:13、20、20共56集。这部电视剧真的是很不错，看完后还意犹未尽，等了几年也不见有续集，可能是大结局了吧，现在无事还会去翻着看看。这部电视剧主要以鬼怪为主要题材，而且拍摄手法让人看着并不觉得可怕，观看承受能力还是很可以的，不像有些恐怖片不敢看，或者...

13019635337：酷开电视看电视剧时候集数都显示不出来是什么情况
能侨刮 ：答：片头没显示电视剧集数的话，就是电视台剪了。酷开电视（酷开TV）是创维旗下互联网电视品牌，由创维负责研发和生产。2006年创维发布全球首款搭载3G-USB接口液晶电视：酷开电视系列，酷开品牌诞生。酷开电视也是第一批互联网电视品牌，并在2013年双十一当天在天猫旗舰店实现24小时成交56272台，销售额突破1.8...

13019635337：与凤行有多少集电视剧
能侨刮 ：答：关于《与凤行》的集数，我们可以从该剧的制作和备案信息中获取。在中国，电视剧的制作和播放受到相关部门的监管，每部电视剧都需要进行备案，并公布其基本信息，包括剧名、集数、制作单位等。通过查询相关备案信息，我们可以得知《与凤行》这部电视剧备案的集数为40集。当然，电视剧的实际播放情况可能会...