Bliver brugt af en anden proces, når jeg vil slette Fil ?

Hej Folkens :P

Har lavet en upload og thumbnails function, hvor den sletter original filen efter thumbnail'en er lavet men får så nedestående fejl.

Tak :D

koder VB

Processen kan ikke få adgang til filen 'C:\Visual Studio 2008\xxxxxxxxx\xxxxx\xxxxxxx\xxxxxxxx.jpg', fordi den bliver brugt af en anden proces.

Her er mine fuctioner:

Thumbnail________________________________________________

    Sub GenerateImageMedium(ByVal strFilepath As String, ByVal strFileName As String, ByVal newHeight As Integer)

        Dim bm As Bitmap = System.Drawing.Image.FromFile(strFilepath & strFileName.Replace(" ", "_").Replace("å", "aa").Replace("æ", "ae").Replace("ø", "oe").Replace("-", "_"))

        Dim newWidth As Integer = (newHeight / bm.Height) * bm.Width

        Dim resized As Bitmap = New Bitmap(newWidth, newHeight)

        Dim g As Graphics = Graphics.FromImage(resized)

        g.InterpolationMode = InterpolationMode.HighQualityBicubic
        g.SmoothingMode = SmoothingMode.HighQuality
        g.PixelOffsetMode = PixelOffsetMode.HighQuality
        g.CompositingQuality = CompositingQuality.HighQuality


        g.DrawImage(bm, New Rectangle(0, 0, resized.Width, resized.Height), 0, 0, bm.Width, bm.Height, GraphicsUnit.Pixel)


        Dim StrNewFilePath As String = strFilepath & "Thumbs\"

        g.Dispose()

        Dim newStrFileName As String = StrNewFilePath & "ThumbMedium_" & strFileName

        resized.Save(newStrFileName, ImageFormat.Jpeg)

        Dim DeleteFil As String = strFilepath & strFileName



        System.IO.File.Delete(DeleteFil)

Upload________________________________________________

Function UploadFil(ByVal fileUpload1 As System.Web.HttpPostedFile, ByVal OutputPath As String) As String

        If Not (fileUpload1 Is Nothing) Then
            If File.Exists(fileUpload1.FileName) Then
                Dim filename As String = Path.GetFileNameWithoutExtension(fileUpload1.FileName)
                Dim counter As Integer = 0
                Dim strFileName As String = String.Empty

                While (True)

                    counter += 1
                    strFileName = filename & "_" & counter.ToString() + Path.GetExtension(fileUpload1.FileName)
                    If File.Exists(OutputPath & strFileName) = False Then
                        Exit While
                    End If

                End While

                strFileName = Replace(strFileName, "-", "_")
                strFileName = Replace(strFileName, " ", "_")
                strFileName = Replace(strFileName, "æ", "ae")
                strFileName = Replace(strFileName, "ø", "oe")
                strFileName = Replace(strFileName, "å", "aa")


                fileUpload1.SaveAs(OutputPath & strFileName)
                Return strFileName


            End If
        End If


        Return False



    End Function