关于提取jpg图片相关信息问题！！

我有一张数码相机拍的图片，jpg格式，图片属性中有拍摄时的信息，请问该如何把这些信息提取出来？我主要需要提取的是当时拍摄的“时间”信息。哪位高手指点一下，多谢了！！ --------------------编程问答-------------------- 获取文件的建立日期
Function GetFdate(S1 As String) As String
Dim g As Object
Dim f As Variant
Set g = CreateObject("Scripting.FileSystemObject")
Set f = g.GetFile(S1)
GetFdate = f.DateCreated
End Function


======================================================
红松软件  http://www.zbhssoft.com/
软件论坛  http://5x51.com/hongsong/
本网站推出只要注册本站会员，就送一套正版软件活动，此
活动截至日期2007-08-15。所需要点软件在本网站中自己挑
选一个。

论坛前10位会员，赠送VIP会员资格！！
======================================================
--------------------编程问答-------------------- 我想楼主想要的是提取JPG文件中的EXIF信息段，不是获取文件日期。楼上的方法... --------------------编程问答-------------------- 我这里有两个读取JPEG文件EXIF信息的VB源代码，刚才贴半天没贴上，说内容太长了。如果楼主需要，留个邮箱我寄给你！！

需要说明的是：代码来自国外，好象读取的EXIF版本有限制。普通JPEG可以正确读出，用光影魔术手处理过的JPEG就会出错。 --------------------编程问答-------------------- 我的信箱：imtbest87@163.com
多谢各位的帮忙！！ --------------------编程问答-------------------- 已发。 --------------------编程问答-------------------- 我也想要一个
orangejuyi@163.com
谢谢 --------------------编程问答-------------------- 好东西。。。

补充：VB ,  API