当前位置:首页 > 正文

vba 视频 时长

作者:Judy发布时间:2023-03-01浏览:458


把上面引用选上。下面是我写的一个例子  Dim shl As Shell32.Shell  Dim shfd As Shell32.Folder  Dim F As Object  Dim i As Integer  '循环用  Dim str As String '显示用    Set shl = New Shell  Set shfd = shl.Namespace("H:迅雷下载IBW-518Z")    For Each F In shfd.Items    If F.Name = "IBW-518Z.mp4" Then      For i = 1 To 50        str = str & F.Name & "---" & i & "---" & shfd.GetDetailsOf("IBW-518Z.mp4", i) & "---" & shfd.GetDetailsOf(F, i) & vbnewline      Next      MsgBox str    End If  Next显示结果是27属性就是你要的视频长度吧。

shfd.GetDetailsOf(F, 27)只用27的话,就只抽出时间了。


声明:部分资源转载自互联网,转载目的在于传递更多知识,并不代表本网赞同其观点和对其真实性负责。如有侵权或者知识有谬误之处,麻烦通知删除,谢谢!联系方式: zzsla2022#163.com