Unable to delete image because it's in use with another process VB.Net

Simple redrawing of image and it's working fine except I cannot delete the original image. 'Unable to access file because it is in use with another process' As you can see. I've added flush, close and dispose.

It's redrawing OK, uploading new image OK but will not permit deletion of original image.

Can you determine what I need to do please?

I've added a process logfile and the lines to search for contain:

C:\inetpub\wwwroot\BowlsGroup\App_Themes\Images\[url removed, login to view]

which is the image I'm trying to delete.

## Deliverables

Public Function ChangeImageColor(ByVal image As [url removed, login to view], ByVal oldColor As [url removed, login to view], ByVal newColor As [url removed, login to view]) As [url removed, login to view]

Dim oimage As [url removed, login to view] = Nothing

Dim origImage As [url removed, login to view]

If ViewState("Home") = "0" Then 'default trial image

origImage = New [url removed, login to view]([url removed, login to view]("App_Themes") & "images\[url removed, login to view]", [url removed, login to view], [url removed, login to view])

Else

origImage = New [url removed, login to view]([url removed, login to view]("App_Themes") & "images\" & [url removed, login to view]("BGAdmCookie")("ClubTheme") & "_Home_" & ViewState("Home") & ".png", [url removed, login to view], [url removed, login to view])

End If

Dim fimage = New Bitmap(origImage, False)

oimage = fimage

Dim newImage As [url removed, login to view] = DirectCast([url removed, login to view], [url removed, login to view])

Dim g1 As [url removed, login to view] = [url removed, login to view](newImage)

' Create a color map.

Dim colorMap(0) As [url removed, login to view]

colorMap(0) = New [url removed, login to view]

colorMap(0).OldColor = oldColor

colorMap(0).NewColor = newColor

' Create an ImageAttributes object, and then pass the transformerobject to the SetRemapTable method.

Dim imageAttr As [url removed, login to view] = New [url removed, login to view]()

[url removed, login to view](colorMap)

[url removed, login to view](newImage, New [url removed, login to view](0, 0, [url removed, login to view], [url removed, login to view]), 0, 0, [url removed, login to view], [url removed, login to view], [url removed, login to view], imageAttr)

Dim iFileNum As Int16 = 0, iNewFileNum As Int16 = 1, sPath As String

iFileNum = CInt(ViewState("Home"))

iNewFileNum = (iFileNum + 1)

sPath = [url removed, login to view]("App_Themes") & "\Images\" & [url removed, login to view]("BGAdmCookie")("ClubTheme") & "_Home_" & iNewFileNum & ".png"

[url removed, login to view](sPath)

BGSpecifics.FileName_Update([url removed, login to view]("BGAdmCookie")("ClubID"), "Home", iNewFileNum)

[url removed, login to view]()

[url removed, login to view]()

[url removed, login to view]()

[url removed, login to view]([url removed, login to view]("App_Themes") & "\Images\" & [url removed, login to view]("BGAdmCookie")("ClubTheme") & "_Home_" & iFileNum & ".png")

End Function

.NET MySQL PHP Arhitectură software Testare software Visual Basic Web Hosting Administrare site-uri web Testare site-uri web

ID Proiect: #2790543

Detalii despre proiect