زخیره نشدن عکس روی سرور

[naser_feb8646]

سلام دوستان
من بوسیله کد زیر یه عکس و بندانگشتی همان عکس را روی سرور ذخیره میکنم مشکل اینجاست که تمام تصاویر بندانگشتی ذخیره میشه ولی بعضی از تصاویر اصلی ذخیره میشه اگر امکان داره بفرمایید مشکل از کجاست

Dim Path As String = Server.MapPath("..\Picture\Gallery\")
Dim FileName As String = FileUpload1.FileName
While (System.IO.File.Exists(Path & FileName))
FileName = "1" & FileName
End While
If Not (FileName = "") Then
FileUpload1.SaveAs(Path & FileName)
Dim objImage As System.Drawing.Image, objThumbnail As System.Drawing.Image
Dim shtWidth As Short, shtHeight As Short
Dim maxWidth As Integer = 800
Dim maxHeight As Integer = 600
objImage = System.Drawing.Image.FromFile(Path & FileName)
'\\\\Thumbnail 800X600
shtWidth = objImage.Width
shtHeight = objImage.Height

If shtWidth > maxWidth Or shtHeight > maxHeight Then
'Determine what dimension is off by more
Dim deltaWidth As Integer = shtWidth - maxWidth
Dim deltaHeight As Integer = shtHeight - maxHeight
Dim scaleFactor As Double

If deltaHeight > deltaWidth Then
'Scale by the height
scaleFactor = maxHeight / shtHeight
Else
'Scale by the Width
scaleFactor = maxWidth / shtWidth
End If

shtWidth *= scaleFactor
shtHeight *= scaleFactor

Dim bmp As Bitmap = New Bitmap(shtWidth, shtHeight)
bmp.SetResolution(500.0F, 500.0F)
Dim grf As Graphics = Graphics.FromImage(DirectCast(bmp, System.Drawing.Image))
grf.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
grf.DrawImage(objImage, 0, 0, shtWidth, shtHeight)
grf.Dispose()
bmp.Save(Path & "Hekmat" & FileName, Imaging.ImageFormat.Jpeg)
End If
'\\\\Thumbnail 100X100
shtWidth = 100
shtHeight = 100
objThumbnail = objImage.GetThumbnailImage(shtWidth, shtHeight, Nothing, System.IntPtr.Zero)
Dim imageSName As String = Path & "thumbhekmat" & FileName
objThumbnail.Save(imageSName, System.Drawing.Imaging.ImageFormat.Jpeg)
objThumbnail.Dispose()
objImage.Dispose()
End If