Strange, file is in use.

[elziko]

I have some simple code that rotates and resizes images depending on
predefined logic:

Private Const NEWHEIGHT As Integer = 320
Private Const NEWWIDTH As Integer = 240

and...

For Each strFile As String In arrFiles

Dim bmpPhoto As Bitmap = New Bitmap(strFile)

If bmpPhoto.Size.Width > bmpPhoto.Size.Height Then
bmpPhoto.RotateFlip(RotateFlipType.Rotate90FlipNon e)
'*************************
End If

Dim dblSFWidth As Double = bmpPhoto.Size.Width / NEWWIDTH

If bmpPhoto.Size.Height / dblSFWidth > 320 Then
Dim dblSFHeight As Double = bmpPhoto.Size.Width / NEWHEIGHT
bmpPhoto = New Bitmap(bmpPhoto, Convert.ToInt32(bmpPhoto.Size.Width
/ dblSFHeight), NEWHEIGHT)
Else
bmpPhoto = New Bitmap(bmpPhoto, NEWWIDTH,
Convert.ToInt32(bmpPhoto.Size.Height / dblSFWidth))
End If

Dim fsSave As New FileStream(strFile, FileMode.Create)
bmpPhoto.Save(fsSave, Imaging.ImageFormat.Jpeg)
bmpPhoto.Dispose()
fsSave.Close()

Next

My problem is that if the line indicated by the asterisks is not executed
(since the image already has the correct rotation) then when I try and
create my FileStream to save it I'm told that the file is in use by another
process. However if the RotateFlip method is called on the Bitmap then I am
free to write to the file!

Anyone have any idea as to why this may be?

--

Cheers,

elziko