Filestream not releasing file

Question

Greetings,
New to vb.net (2012) so bear with me.
I have a routine that I'm calling to get the Exif date and time from a JPG then renaming the file. However, the routine that gets the date and time is tying up the file so that the rename can't occur. I've tried closing, disposing and setting everything
to nothing but have had no luck. I know it's the read of the metadata tying up the files because if I change that routine to just pass back "now" the files rename perfectly.
What am I missing?!?!
Code is below. Thanks!
Ken
Function MetaDataGet(ByRef TheData As PicMData, ByRef Reslt$) As Boolean
Dim Ext$
Dim JpgOpt As New BitmapCreateOptions
Dim JpgInput As System.IO.FileStream
Dim JpgDecoder As JpegBitmapDecoder
Dim MyMetaData As BitmapMetadata
Ext$ = Mid$(TheData.FileName, InStrRev(TheData.FileName, ".") + 1)
On Error GoTo MDERROR
Reslt$ = ""
Select Case UCase$(Ext$)
Case Is = "JPG"
JpgOpt = BitmapCreateOptions.PreservePixelFormat And BitmapCreateOptions.IgnoreColorProfile
JpgInput = New System.IO.FileStream(TheData.FileNameFull, IO.FileMode.Open, IO.FileAccess.Read)
JpgDecoder = New JpegBitmapDecoder(JpgInput, JpgOpt, BitmapCacheOption.None)
MyMetaData = JpgDecoder.Frames(0).Metadata
If MyMetaData.ContainsQuery(MDQryImageDescript$) Then TheData.ImageDescription = MyMetaData.GetQuery(MDQryImageDescript$)
If Not MyMetaData.Keywords Is Nothing Then
For Each Info In MyMetaData.Keywords
TheData.WinTags = TheData.WinTags & Info & "; "
Next Info
TheData.WinTags = Mid$(TheData.WinTags, 1, Len(TheData.WinTags) - 2)
End If
If Not MyMetaData.Title Is Nothing Then TheData.WinTitle = MyMetaData.Title
If Not MyMetaData.Subject Is Nothing Then TheData.WinSubject = MyMetaData.Subject
If Not MyMetaData.Comment Is Nothing Then TheData.WinComments = MyMetaData.Comment
'size and resolution
Dim BMapForSize As New BitmapImage
BMapForSize.BeginInit()
BMapForSize.UriSource = New Uri(TheData.FileNameFull)
BMapForSize.EndInit()
TheData.SizeX = BMapForSize.Width / 96
TheData.SizeY = BMapForSize.Height / 96
TheData.PixelsX = BMapForSize.PixelWidth
TheData.PixelsY = BMapForSize.PixelHeight
TheData.Resolution = (BMapForSize.PixelWidth) / (BMapForSize.Width / 96)
BMapForSize = Nothing
'end size and resolution
If Not MyMetaData.CameraModel Is Nothing Then TheData.EquipModel = MyMetaData.CameraModel
If Not MyMetaData.CameraManufacturer Is Nothing Then TheData.EquipMake = MyMetaData.CameraManufacturer
If Not MyMetaData.Author Is Nothing Then
For Each Info In MyMetaData.Author
TheData.Authors = TheData.Authors & Info & "; "
Next Info
TheData.Authors = Mid$(TheData.Authors, 1, Len(TheData.Authors) - 2)
End If
If Not MyMetaData.Copyright Is Nothing Then TheData.Copyright = MyMetaData.Copyright
If Not MyMetaData.DateTaken Is Nothing Then TheData.DateTimeOriginal = MyMetaData.DateTaken
If MyMetaData.ContainsQuery(MDQryDateTime$) Then TheData.DateTime = MyMetaData.GetQuery(MDQryDateTime$)
If MyMetaData.ContainsQuery(MDQryDateTimeDigi$) Then TheData.DateTimeDigitized = MyMetaData.GetQuery(MDQryDateTimeDigi$)
MyMetaData = Nothing
JpgOpt = Nothing
JpgDecoder = Nothing
JpgInput.Close()
JpgInput.Dispose()
JpgInput = Nothing
Case Is = "MPG", "AVI", "MP4"
'Nothing to be done yet. Maybe exif into there?
Case Else
Throw New System.Exception("Invalid file type.")
End Select
If Reslt$ = "" Then
Return True 'no errors occurred
Else
Return False 'errors occurred
End If
MDERROR:
Reslt$ = Reslt$ & TheData.FileName & ": " & Err.Description & vbCrLf
Err.Clear()
Resume Next
End Function

Answer 1

You could try a
Using statement and only instantiate JpgInput where it is needed within a particular case statment.
Function MetaDataGet(ByRef TheData As PicMData, ByRef Reslt$) As Boolean
Dim Ext$
Dim JpgOpt As New BitmapCreateOptions
Dim JpgDecoder As JpegBitmapDecoder
Dim MyMetaData As BitmapMetadata
Ext$ = Mid$(TheData.FileName, InStrRev(TheData.FileName, ".") + 1)
On Error GoTo MDERROR
Reslt$ = ""
Select Case UCase$(Ext$)
Case Is = "JPG"
JpgOpt = BitmapCreateOptions.PreservePixelFormat And BitmapCreateOptions.IgnoreColorProfile
Using JpgInput As New System.IO.FileStream(TheData.FileNameFull, IO.FileMode.Open, IO.FileAccess.Read)
JpgDecoder = New JpegBitmapDecoder(JpgInput, JpgOpt, BitmapCacheOption.None)
MyMetaData = JpgDecoder.Frames(0).Metadata
If MyMetaData.ContainsQuery(MDQryImageDescript$) Then TheData.ImageDescription = MyMetaData.GetQuery(MDQryImageDescript$)
If Not MyMetaData.Keywords Is Nothing Then
For Each Info In MyMetaData.Keywords
TheData.WinTags = TheData.WinTags & Info & "; "
Next Info
TheData.WinTags = Mid$(TheData.WinTags, 1, Len(TheData.WinTags) - 2)
End If
If Not MyMetaData.Title Is Nothing Then TheData.WinTitle = MyMetaData.Title
If Not MyMetaData.Subject Is Nothing Then TheData.WinSubject = MyMetaData.Subject
If Not MyMetaData.Comment Is Nothing Then TheData.WinComments = MyMetaData.Comment
'size and resolution
Dim BMapForSize As New BitmapImage
BMapForSize.BeginInit()
BMapForSize.UriSource = New Uri(TheData.FileNameFull)
BMapForSize.EndInit()
TheData.SizeX = BMapForSize.Width / 96
TheData.SizeY = BMapForSize.Height / 96
TheData.PixelsX = BMapForSize.PixelWidth
TheData.PixelsY = BMapForSize.PixelHeight
TheData.Resolution = (BMapForSize.PixelWidth) / (BMapForSize.Width / 96)
BMapForSize = Nothing
'end size and resolution
If Not MyMetaData.CameraModel Is Nothing Then TheData.EquipModel = MyMetaData.CameraModel
If Not MyMetaData.CameraManufacturer Is Nothing Then TheData.EquipMake = MyMetaData.CameraManufacturer
If Not MyMetaData.Author Is Nothing Then
For Each Info In MyMetaData.Author
TheData.Authors = TheData.Authors & Info & "; "
Next Info
TheData.Authors = Mid$(TheData.Authors, 1, Len(TheData.Authors) - 2)
End If
If Not MyMetaData.Copyright Is Nothing Then TheData.Copyright = MyMetaData.Copyright
If Not MyMetaData.DateTaken Is Nothing Then TheData.DateTimeOriginal = MyMetaData.DateTaken
If MyMetaData.ContainsQuery(MDQryDateTime$) Then TheData.DateTime = MyMetaData.GetQuery(MDQryDateTime$)
If MyMetaData.ContainsQuery(MDQryDateTimeDigi$) Then TheData.DateTimeDigitized = MyMetaData.GetQuery(MDQryDateTimeDigi$)
MyMetaData = Nothing
JpgOpt = Nothing
JpgDecoder = Nothing
End Using
Case Is = "MPG", "AVI", "MP4"
'Nothing to be done yet. Maybe exif into there?
Case Else
Throw New System.Exception("Invalid file type.")
End Select
If Reslt$ = "" Then
Return True 'no errors occurred
Else
Return False 'errors occurred
End If
MDERROR:
Reslt$ = Reslt$ & TheData.FileName & ": " & Err.Description & vbCrLf
Err.Clear()
Resume Next
End Function
La vida loca