求教EXCEL怎么用VBA提取视频文件的属性信息求个大神

Option Explicit

Function GetFileDuration(FolderSpec As String) As Date

'请在VBE/工具/引用中勾选对于MICROSOFT SHELL CONTROLS AND AUTOMATION

Dim SHL As New Shell32Shell

Dim SHFD As Shell32Folder

Dim F As Object

Set SHFD = SHLNameSpace(FolderSpec)

For Each F In SHFDItems

If InStr(1, FName, "WMV", vbTextCompare) Then

GetFileDuration = GetFileDuration + SHFDGetDetailsOf(F, 21)

End If

Next

End Function

Sub Example()

MsgBox GetFileDuration("F:\Pictures\Microsoft")

End Sub

说明：

shell32对象非常有用，利用它几乎可以访问文件的所有信息。利用GetDetailsOf可以获取文件（包括视频文件）的属性信息。试一试吧，上面是一个获取视频（WMV）的VBA程序。

感觉你的题目有点问题，“数字视频信息获取与处理过程”，如果已经是数字视频，就不需要A/D或D/A转换了。感觉问题应该是视频信息的获取与处理过程。

首先应该是采样，然后进行模数转换（就是A/D），视屏编辑包括压缩、存储、解压等，最后进行数模（就是D/A）转化，存放在录像带等上或者是使用普通电视播放，（数字电视是不需要后期的D/A转化的）。

所以，看你的这个问题应该是很久以前的问题了，现在都不好做了，就像上信息课的老师说的，“我三年没有教信息课，现在都不知道该教什么了”，信息方面的东西发展得太快了。

以上就是关于求教EXCEL怎么用VBA提取视频文件的属性信息求个大神全部的内容，包括:求教EXCEL怎么用VBA提取视频文件的属性信息求个大神、在数字视频信息获取与处理过程中，下述顺序（ ）是正确的。、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！