Writing EXIF file properties

[Joaquin Corchero]

Hi, I have this code which it should change the EXIF file properties of
images, but there is something that doesn't work, any ideas???

Private Sub ShowBitMapProp( ByVal sFile As String)

Dim sExt = LCase(sFile).Su bstring(sFile.L astIndexOf(".") )

If sExt = ".jpg" Or sExt = ".gif" Then

Response.Write( "ShowBitMapProp <br>" & vbCrLf)

Dim oBitmap As Image = Image.FromFile( sFile)

'Dim oProba As Image = Image.FromFile( sFile)

'oProba.Dispose ()

'oBitmap = oProba.Clone

'Dim oBitmap As Bitmap = New Bitmap(sFile)

'Dim ooBitmap As Birmap = oBitmap.FromFil e(sFile)

Dim iConta As Integer

Response.Write( "Number of properties: " &
oBitmap.Propert yItems.Length.T oString & "<br>" & vbCrLf)

Dim oPrps() As System.Drawing. Imaging.Propert yItem

Dim oPrp As System.Drawing. Imaging.Propert yItem

oPrps = oBitmap.Propert yItems

Dim bByte() As Byte

Dim bConv As System.BitConve rter

Dim utf As New System.Text.UTF 7Encoding

Dim bNewValue() As Byte

Dim iCont As Integer

Dim sProba As String = "Joaquin"

For iConta = 0 To oPrps.Length

oPrp = oPrps(iConta)

'Response.Write (oBitmap.Proper tyIdList.GetVal ue(iConta).ToSt ring & " Idlist
" & iConta & "<br>" & vbCrLf)

If oPrp.Id.ToStrin g = "40091" Or oPrp.Id.ToStrin g = "40092" Or _

oPrp.Id.ToStrin g = "40093" Or oPrp.Id.ToStrin g = "40094" Or _

oPrp.Id.ToStrin g = "40095" Then

Response.Write( oPrp.Id & "<br>")

bByte = oPrp.Value

Try

Response.Write( "Old Value: " & utf.GetString(b Byte) & "; ")

bNewValue = utf.GetBytes(ut f.GetString(bBy te))

bNewValue = utf.GetBytes("J oaquin")

oPrp.Id = oPrp.Id

oPrp.Type = oPrp.Type

oPrp.Len = System.Text.ASC IIEncoding.Unic ode.GetBytes(sP roba).Length

oPrp.Value = System.Text.ASC IIEncoding.Unic ode.GetBytes(sP roba)

oBitmap.SetProp ertyItem(oPrp)

Catch

Response.Write( Err.Description & " Error<br>")

End Try

End If

'40091: Title

'40092: Comments

'40093: Author

'40094: Keywords

'40095: Subject

Next

Try

'File.Delete(sF ile)

oBitmap.Save(sF ile)

Catch

Response.Write( Err.Description & " Error 2 <br>")

End Try

End If

End Sub

Thank you for your help