通过Excel的宏定义获取视频信息时长
新建一个宏定义 取个名称添加一个宏定义 保存
运行宏 选择目标文件夹
得到结果
代码======================================
Sub 视频()
Dim O As Object, fd As Object, F As Object
Dim mypath
Range("A2:B65535").ClearContents
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择要批量重命名文件的文件夹"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
mypath = .SelectedItems(1) & "\"
End With
Set O = CreateObject("Shell.Application")
Set fd = O.Namespace(mypath)
a = 2
For Each F In fd.Items
Cells(a, 2) = fd.GetDetailsOf(F, 27)
Cells(a, 1) = F
a = a + 1
Next
End Sub
太感谢大神了神速 无私辛苦 orz~~~~~ 有小问题 忘说了 还有 含 大小 最好是1024MB以下 用MB显示如123MB超过用GB表示如4.3GB ,另能遍历 吗 现在只能1层麻烦就算了 再次感谢感谢感谢~
页:
[1]