vb怎么删除照片exif信息
vb如何删除照片exif信息？
网上找到以下信息，以此为基础
以下是类文件（名称为ExifReader）字数太长分为四贴
本帖最后由 swjia8315 于 2012-04-10 15:11:53 编辑
希望有兴趣的朋友一起研究下。网上找到以下信息，以此为基础
Private Sub Form_Load()
Dim exif1 As New ExifReader
exif1.Load "G:\PICT0992.jpg"
MsgBox exif1.Tag(DateTimeDigitized)
exif1.Tag(DateTimeDigitized) = Now '修改
End Sub
以下是类文件（名称为ExifReader）字数太长分为四贴
Option Explicit
Private ExifTemp() As Byte
Private Offset_to_IFD0 As Long
Private Offset_to_APP1 As Long
Private Offset_to_TIFF As Long
Private Length_of_APP1 As Long
Private Offset_to_Next_IFD As Long
Private IFDDirectory() As IFD_Data
Private Offset_to_ExifSubIFD As Long
Private m_Tag As Long
Private m_file As String
Private IsLoaded As Boolean
Private Enum EXIF_DATA_FORMAT
m_BYTE = 1
m_STRING = 2
m_SHORT = 3
m_LONG = 4
m_RATIONAL = 5
m_SBYTE = 6
m_UNDEFINED = 7
m_SSHORT = 8
m_SLONG = 9
m_SRATIONAL = 10
m_SINGLE = 11
m_DOUBLE = 12
End Enum
Private Type IFD_Data_Values
BytVal As Byte
StrVal As String
IntVal As Integer
LngVal As Long
SngVal As Single
DblVal As Double
End Type
Private Type IFD_Data
Tag_No As EXIF_TAG
MakerNote As Boolean
Data_Format As EXIF_DATA_FORMAT
Components As Long
Offset_To_Value As Long
value As Variant
End Type
Public Enum EXIF_TAG
'IFD0 Tags
ImageDescription = &H10E&
Make = &H10F&
Model = &H110&