通过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

zeromx

太感谢大神了神速 无私辛苦 orz~~~~~   有小问题 忘说了 还有 含 大小 最好是1024MB以下 用MB显示如123MB  超过用GB表示如4.3GB ,另能遍历 吗 现在只能1层  麻烦就算了 再次感谢感谢感谢~