主题：[求助]获取照片的拍摄时间(VBA转全局代码)

请问如何将以下VBA的转成狐表的全局代码命令

'获取照片的拍摄时间

Public Function FindPicDate(PicFile As String) As String
     Dim bytes() As Byte
     Dim sLine() As String
     Dim fSize As Long, ExifDate As Long
     Dim i As Long, d As Long
     Dim ff As Integer
     Dim Found   As Boolean
    
     ff = FreeFile
     fSize = FileLen(PicFile)
     
     If fSize > 1024 Then fSize = 1024
     ReDim bytes(0 To fSize)                           ‘狐表提示这句出错
     Open PicFile For Binary As #ff
         Get #ff, 1, bytes
     Close ff
       
     sLine = Split(StrConv(bytes(), vbUnicode), Chr$(0))
    
     For i = 0 To UBound(sLine)
         ExifDate = InStr(1, sLine(i), "xif")
         If ExifDate > 0 Then
             Found = True
             Exit For
         End If
     Next i
        
     If Found = False Then Exit Function
    
     For d = i + 1 To UBound(sLine)
         ExifDate = InStr(1, sLine(d), ":")
         If ExifDate > 0 Then
             FindPicDate = sLine(d)
             Exit For
         End If
     Next d
            
 End Function

http://club.excelhome.net/thread-467318-1-1.html

原代码的出处

汗，哪有这么那么麻烦

 

http://www.foxtable.com/help/topics/2707.htm

 

拍摄时间跟以下的是不同的

Output.Show("文件创建时间:" & ifo.CreationTime)

Output.Show("上次修改时间:" & ifo.LastWriteTime)

Output.Show("上次访问时间:" & ifo.LastAccessTime

拍摄时间，不会因为文件修改而改变的

 

此主题相关图片如下：qq图片20151215181142.png

读取Exif信息的类

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:exifreader.cls.txt

直接获取

 

Dim img As Image = Image.FromFile("d:\camera.jpg")
Dim pt As PropertyItem() = img.PropertyItems
For i As Integer = 0 To pt.Length - 1
    Dim p As PropertyItem = pt(i)
    Select Case pt(i).Id
        Case &H132
            ' 拍照时间
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            msgbox(s)
    End Select
Next

参考资料

 

http://www.cnblogs.com/yeminglong/p/3172719.html

 

http://blog.csdn.net/yang073402/article/details/5470127

 

非常感谢大红袍，基本是这个方法，不过这个取值，

我遍历ID显出来的值是有拍摄日期的，就是不知这个是什么ID

 

此主题相关图片如下：qq图片20151215200720.jpg


此主题相关图片如下：qq图片20151215201014.png

Dim img As Image = Image.FromFile("I:\学校照片.jpg")
Dim pt As PropertyItem() = img.PropertyItems

For i As Integer = 0 To pt.Length - 1
    Dim p As PropertyItem = pt(i)
    Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
    Output.Show( s & vbcrlf)
Next