如何用vb访问照片的拍摄日期

下载：
http://www.05sun.com/down/7796.html
带源程序呢！！！

可能用手机或者数码相机拍出的照片，图片文件有的就是用日期来命名的，或者文件的属性---创建日期就是照片的拍摄日期.
可以用 FSO 读取文件的属性:
-----------------------------------------------------------------
Dim file As Variant
Dim fso As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(.filename)
MsgBox vbLf & "创建时间：" & file.DateCreated & _
vbLf & "修改时间：" & file.DateLastModified & _
vbLf & "访问时间：" & file.DateLastAccessed
--------------------------------------------------------------------
这样，创建日期就是照片的拍摄日期，但是如果你是复制过去的，那么创建日期就和拍照日期不符合，这个时候就用修改日期就可以了!