For Each r As Row In Tables("图片库")
If r("扩展名")=".JPG" AndAlso r.Isnull("拍摄时间") Then
Dim img As Image = Image.FromFile(r("路径"))
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)
'Output.Show("修改时间: " & s)
'Output.Show("")
Case &H9003
Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
‘Output.Show(r.Index & "拍摄时间: " & s)
’Output.Show("")
r("拍摄时间")=s
'Case &H110
'Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
'Output.Show("相机型号: " & s)
'Output.Show("")
'Case &H10F
'Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
'Output.Show("制造商: " & s)
'Output.Show("")
'
'Case &H131
'Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
'Output.Show("修改软件: " & s)
'Output.Show("")
End Select
Next
End If
Next
加好友 
发短信
Post By：2018/2/27 10:44:00 [显示全部帖子]
