如何用Excel VBA获得AVI文件的持续时间?

[timothylee2005]

我有好多avi文件,资源管理器里可以显示每个文件的播放持续时间.
我想统计那些时间:求和,排序等.

请问我该怎么实现?

谢谢!

[laoyebin]

没找到这个要用到的API函数

[ACMAIN_CHM]

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _
lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

CommandString = "Open " & FileName" & " alias MediaFile"
mciSendString CommandString, vbNullString, 0, 0&



Dim MediaLength as Long
Dim RetString As String * 256
Dim CommandString As String

CommandString = "Set MediaFile time format milliseconds"
mciSendString CommandString, vbNullString, 0, 0&
CommandString = "Status MediaFile length"
MciSendString CommandString, RetString, Len(RetString), 0&
MediaLength = CLng(RetString)


CommandString = "Close MediaFile"
MciSendString CommandString, vbNullString, 0, 0&


QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》