函數getfile duration（FolderSpec As String）作為日期
請在VBE/ Tools/References中檢查Microsoft Shell控件和自動化。
暗淡SHL作為新外殼32。殼
昏暗的SHFD如同貝殼32。文件夾
將F作為對象標註
設置SHFD = SHL。命名空間（FolderSpec）
SHFD的每壹個F。項目
if InStr（1，F.Name。WMV”，vbTextCompare）然後
getfile duration = getfile duration+SHFD。get details of（F，21）
如果…就會結束
然後
結束功能
子示例（）
MsgBox getfile duration（“F:\ Pictures \ Microsoft“）
末端接頭
描述:
Shell32對象非常有用，用它幾乎可以訪問文件的所有信息。GetDetailsOf可用於獲取文件（包括視頻文件）的屬性信息。試試看。以上是壹個獲取視頻的VBA程序（WMV）。