Cannot delete a file

[hog]

I am using the following to delete a file which is being displayed in a picturebox.

 

File.Delete(strFileName)

 

I keep getting an error message saying the file is in use by another process and cannot be deleted?

 

I have set the picturebox to nothing, I have set the bitmap used to fill the picturebox to nothing and even set the FileInfo() object which holds the file name to nothing and still get the error????

 

Where am I going wrong?

 

Thnx

[Shurikn]

if the file a picture(since you said that you are displaying it in a picture box)

and if so(stupid question) is it open by another app or in a share maybe?

or... are you using winXp? I know it really have problem letting go of past used things...

theye should be a way to destroy any link the OS have with any files... but M$ dont want that... I wouldnt care killing windows a couple of time if I could kill every process and delete any file I want when I want...

[PlausiblyDamp]

You may want to try disposing of the bitmap object rather than just setting it to nothing.

[hog]

Yeah I am running WIndozeXP :-\

 

I have tried this so far and still no joy, and my program IS the only program opening the bitmap to view?

 

m_bmpNewImage.Dispose()

fiFileInfo = Nothing

Me.picMain.Image = Nothing

File.Delete(strFileName)

[SonicBoomAu]

A reference to that file might still be in memory. You could force a Garbage collection and see if that removes the file fomr memory.

 

gc.collect

[hog]

So KOOL :D

 

gc.collect fixed the problem :D :D

 

Thnx :D :D

[PlausiblyDamp]

Did you try calling dispose on the bitmap like I suggested. Calling GC.collect is rarely the correct solution to the problem.

[SonicBoomAu]

Yeah I am running WIndozeXP :-\

 

I have tried this so far and still no joy, and my program IS the only program opening the bitmap to view?

 

m_bmpNewImage.Dispose()

fiFileInfo = Nothing

Me.picMain.Image = Nothing

File.Delete(strFileName)

 

 

No offence PlausiblyDamp but it seems to me hog tried to dispose of the bitmap as you sugested, but with no joy.

 

If it wasn't for this I wouldn't has suggested the garbage collection. I realise that windows does it own garbage collection in it own time but sometimes you have to give it a push.

[thenerd]

No, he didn't dispose it. He set it to nothing. They're different, he should have called

 

me.picmain.image.dispose()

[PlausiblyDamp]

If not the image then the FileStream used to load the image may need disposing, although without seeing the loading code that could be a bit of guesswork.

[hog]

This is all the code that has anything to do with the file.

 

bmpResized = New Bitmap(CInt(bmpTooBig.Width * decRatio), CInt(bmpTooBig.Height * decRatio))

 

grpBitmap = Graphics.FromImage(bmpResized)

 

fiFileInfo = diDirectory.GetFiles("*.jpg")

 

m_bmpNewImage = ResizeBitmap(New Bitmap(strFileName), intPictureBoxWidth, intPictureBoxHeight)

 

me.picMain.image = m_bmpNewImage

 

I have tried setting all to nothing and disposing and nothing works except the gc.collect!

[PlausiblyDamp]

Could you attach the project in question - might be easier to track down what needs disposing if all the code is available.

[hog]

Here are the sections of code that have anything to do with the file.

 

Private Function ResizeBitmap(ByVal bmpTooBig As Bitmap, ByVal maxWidth As Integer, ByVal maxHeight As Integer) As Bitmap

       Dim decRatio, decRatioW, decRatioH As Decimal
       Dim bmpResized As Bitmap
       Dim grpBitmap As Graphics

       If bmpTooBig.Width > maxWidth Then

           decRatioW = maxWidth / bmpTooBig.Width

       Else

           decRatioW = 1

       End If

       If bmpTooBig.Height > maxHeight Then

           decRatioH = maxHeight / bmpTooBig.Height

       Else

           decRatioH = 1

       End If

       'determine which dimension is the smallest

       If decRatioW <= decRatioH Then

           decRatio = decRatioW

       Else

           decRatio = decRatioH

       End If

       bmpResized = New Bitmap(CInt(bmpTooBig.Width * decRatio), CInt(bmpTooBig.Height * decRatio))

       'Make a Graphics object for the resized bitmap.

       grpBitmap = Graphics.FromImage(bmpResized)

       grpBitmap.DrawImage(bmpTooBig, 0, 0, bmpResized.Width + 1, bmpResized.Height + 1)

       If Me.chkFullScreen.Checked Then

           Me.picMain.Location = New Point((intSavePictureBoxWidth - bmpResized.Width) / 2, 0)

       Else

           Me.picMain.Location = New Point((intSavePictureBoxWidth - bmpResized.Width) / 2, 104)

       End If

       Me.picMain.Width = bmpResized.Width

       Return bmpResized

       'dispose of graphic objects

       grpBitmap.Dispose()

   End Function

 

Private Sub LoadSites()

       Try
           ' start up path to find photos

           Dim strPath As String = gstrPhotosFolderPath & Me.cboSites.SelectedItem & "\" & Me.cboDates.SelectedItem

           Dim diDirectory As New DirectoryInfo(strPath)

           Dim fiTemp As FileInfo

           ' create an array of the files in the current directory

           fiFileInfo = diDirectory.GetFiles("*.jpg")

           intPhotoCount = fiFileInfo.Length

           intIndex = 0

           ' store the first photo path

           strFileName = gstrPhotosFolderPath & Me.cboSites.SelectedItem & "\" & Me.cboDates.SelectedItem & "\" & fiFileInfo(intIndex).ToString

           ' load the image

           m_bmpNewImage = ResizeBitmap(New Bitmap(strFileName), intPictureBoxWidth, intPictureBoxHeight)

           ' display it

           Me.picMain.Image = m_bmpNewImage

       Catch objException As Exception

           MessageBox.Show(objException.Message)

       End Try

   End Sub

[PlausiblyDamp]

in the line

m_bmpNewImage = ResizeBitmap(New Bitmap(strFileName), intPictureBoxWidth, intPictureBoxHeight)

 

the New Bitmap(strFileName) part is probably locking the file. Try creating a temp bitmap, passing that in and disposing of the temp one to see if the problem goes away.