如何使用vba获取一个文件夹下所有视频文件的总长度

yy10

      如题，现在想计算所有视频文件的总长度，我不想一个个地加，我觉得vba应该能解决此问题，请大家帮帮忙。

守柔

QUOTE:

以下是引用yy10在2008-6-12 11:39:31的发言：

      如题，现在想计算所有视频文件的总长度，我不想一个个地加，我觉得vba应该能解决此问题，请大家帮帮忙。

请参考：

Function GetFolderSize(FolderSpec As String) As Long
    Dim FSO As Object
    Dim F As Object
    Dim F1 As Object
    Dim FC As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set F = FSO.GetFolder(FolderSpec)
    Set FC = F.Files
    For Each F1 In FC
        If InStr(1, F1.Name, ".WMV", vbTextCompare) Then
            GetFolderSize = GetFolderSize + F1.Size
        End If
    Next
End Function

Sub Example()
    MsgBox GetFolderSize("F:\Pictures\Microsoft") & "byte"
End Sub

konggs

老大好，我以为楼主可能是想知道视频的播放长度，不一定是视频文件的长度。

yy10

    谢谢几位版主的热心，帖子里我没有说清楚，我要计算的是时间总长度，深表歉意。

    其实这个后来我解决了，参考了officefans上面的一个帖子，http://www.officefans.net/cdb/viewthread.php?tid=93264。那个帖子很有看头，我对其中的vba进行了改进，这样可以计算一个文件夹下面的视频总长度了，其实我根本不知道什么API、引用对象等，为什么是这样的我也不明白，以后慢慢学习吧，先用着再说。现把我修改的VBA贴出来，或许有人用得着。

  Sub 视频长度()
    Dim FSO As Object, FDR As Object, F As Object, i As Variant
     Dim iMPlayer As New MediaPlayer.MediaPlayer
     On Error Resume Next
     Set FSO = CreateObject("Scripting.FileSystemObject")
      Set FDR = FSO.GetFolder("F:\编辑\视频")   '视频路径
  
    Set F = FDR.Files
     For Each i In F
       iMPlayer.Open i

    Do While iMPlayer.openState <> 6
        DoEvents
    Loop
 
    iMPlayer.Stop
   a = a + iMPlayer.Duration
    Set iMPlayer = Nothing
    Next i
  MsgBox a
End Sub

[此贴子已经被作者于2008-7-7 9:37:29编辑过]

守柔

QUOTE:

以下是引用konggs在2008-7-7 7:48:42的发言：

老大好，我以为楼主可能是想知道视频的播放长度，不一定是视频文件的长度。

谢谢孔兄提示，当时没有时间细想。

除了楼主的方法外（引用MEDIAPLAYER控件外），可以使用以下方法：

Option Explicit
Function GetFileDuration(FolderSpec As String) As Date
'请在VBE/工具/引用中勾选对于MICROSOFT SHELL CONTROLS AND AUTOMATION
    Dim SHL As New Shell32.Shell
    Dim SHFD As Shell32.Folder
    Dim F As Object
    Set SHFD = SHL.NameSpace(FolderSpec)
    For Each F In SHFD.Items
        If InStr(1, F.Name, ".WMV", vbTextCompare) Then
            GetFileDuration = GetFileDuration + SHFD.GetDetailsOf(F, 21)
        End If
    Next
End Function
Sub Example()
    MsgBox GetFileDuration("F:\Pictures\Microsoft")
End Sub
说明：

shell32对象非常有用，利用它几乎可以访问文件的所有信息。

[此贴子已经被作者于2008-7-7 18:28:21编辑过]

konggs

谢谢老大指教，当时，我想的是通过WinApi，可是没有找到相应的函数，所以，就没有下手。

Shell32利用它几乎可以访问文件的所有信息，好，记下了。

谢谢老大。

yy10

     谢谢版主的指教，这些对我来说太高深了，我会努力学习的。这两天IP又被封了，不知道是什么原因。

     刚才运行了守版主的程序，开始得出时间为0，后来发现需要在程序中修改对应的文件类型，终于可以运行了，我很菜。其实我现在不要求自己懂这么多，能用就行，以后慢慢体会。

    另外，想在这里顺便请教一下2位版主。守版主写了一个讲查找功能外置的程序，见http://club.excelhome.net/viewthread.php?tid=209114&replyID=&skin=0，我想让我的word默认有这个外置的查找框，不知道怎么实现。

     想问孔版主的是，我看了你的那个VSTO的帖子，http://club.excelhome.net/viewthread.php?tid=192059，照你说的步骤操作了，折腾了很久，最后还是不能运行，提示“未能加载文件或程序集“KGSdemo, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null”或它的某一个依赖项。未能授予执行权限”，基本上该做的都做了，不知哪里有问题，很不甘心。我觉得我就是喜欢浅尝辄止，VBA刚入门，就去了解什么VSTO，希望大家别笑话。感觉VSTO对个人用户来说用处不大。

[此贴子已经被作者于2008-7-9 15:03:55编辑过]

konggs

你好，关键是DotNet权限问题，现在，我还没有信心来解决这个问题。

在网络上找了很多资料，但一直都没有找到很好的解决方法。

kevingarnett198

路过问一下, 如何获取文件夹中每个视频的时长呢?

bingshou

不知道啊，有会的吗？求教求教