vb6获取视频拍摄时间

在 VB6 中，可以使用 Windows API 来获取视频文件的拍摄时间。具体步骤如下：

1. 引入 Windows API 库

在 VB6 中，可以通过以下代码将 Windows API 库引入到项目中：

Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

2. 打开视频文件

使用 VB6 内置的 FileSystemObject 对象打开视频文件：

Dim fso As Object
Dim file As Object
Dim filePath As String

'视频文件路径
filePath = "C:\video.mp4"

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(filePath)

3. 调用 Windows API 函数获取拍摄时间

使用 GetFileTime 函数获取视频文件的创建时间、访问时间和修改时间，其中创建时间即为视频拍摄时间：

Dim creationTime As FILETIME
Dim accessTime As FILETIME
Dim writeTime As FILETIME

'获取文件时间
GetFileTime file.handle, creationTime, accessTime, writeTime

'将文件时间转换为日期时间格式
Dim fileTime As Date
fileTime = FileTimeToDateTime(creationTime)

4. 将文件时间转换为日期时间格式

Windows API 中返回的时间为 FILETIME 格式，需要将其转换为 VB6 中的 Date 类型，可以使用以下函数：

Private Function FileTimeToDateTime(ByRef fileTime As FILETIME) As Date
    Dim hFileTime As Long
    hFileTime = ((fileTime.dwHighDateTime * &H100000000) + fileTime.dwLowDateTime)
    FileTimeToDateTime = DateAdd("s", hFileTime / 10000000#, "1/1/1601 12:00:00 AM")
End Function

至此，就可以在 VB6 中获取视频文件的拍摄时间了。