title: The SaveAs method is configured to require a rooted path, and the path '~/Images/FleaMarket/uploadedImages/mitali2054/5.jpg' is not rooted
body: <pre><code>Private Function UploadPic() As String
  
          Const bmpw As Integer = 300
          Const bmph As Integer = 300
          Dim itemID As String = MaxItemNo()
  
          Dim filePath As String = "~/Images/FleaMarket/uploadedImages/" &amp; User.Identity.Name.ToString &amp; "/" &amp; itemID &amp; Path.GetExtension(fuImage.FileName)
          MsgBox(filePath)
          If fuImage.HasFile Then
              'lblMessage.Text = ""
              If checkFileType(fuImage.FileName) Then
                  **fuImage.PostedFile.SaveAs(filePath)**
                  Dim newWidth As Integer = bmpw
                  Dim newHeight As Integer = bmph
                  Dim upBmp As Bitmap = Bitmap.FromStream(fuImage.PostedFile.InputStream)
                  Dim newBmp As Bitmap = New Bitmap(newWidth, newHeight, Imaging.PixelFormat.Format24bppRgb)
                  newBmp.SetResolution(72, 72)
                  Dim upWidth As Integer = upBmp.Width
                  Dim upHeight As Integer = upBmp.Height
                  Dim newX As Integer = 0
                  Dim newY As Integer = 0
                  Dim reduce As Decimal
  
                  If upWidth &gt; upHeight Then
                      reduce = newWidth / upWidth
                      newHeight = Int(upHeight * reduce)
                      newY = Int((bmph - newHeight) / 2)
                      newX = 0
                  ElseIf upWidth &lt; upHeight Then
                      reduce = newHeight / upHeight
                      newWidth = Int(upWidth * reduce)
                      newX = Int((bmpw - newWidth) / 2)
                      newY = 0
                  ElseIf upWidth = upHeight Then
                      reduce = newHeight / upHeight
                      newWidth = Int(upWidth * reduce)
                      newX = Int((bmpw - newWidth) / 2)
                      newY = Int((bmph - newHeight) / 2)
                  End If
  
                  Dim newGraphic As Graphics = Graphics.FromImage(newBmp)
                  Try
                      newGraphic.Clear(Color.White)
                      newGraphic.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
                      newGraphic.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                      newGraphic.DrawImage(upBmp, newX, newY, newWidth, newHeight)
                      newBmp.Save(MapPath(filePath), Imaging.ImageFormat.Png)
                      'Image1.ImageUrl = filePath
                      'Image1.Visible = True
                  Catch ex As Exception
                      'lblMessage.Text = ex.ToString
                  Finally
                      upBmp.Dispose()
                      newBmp.Dispose()
                      newGraphic.Dispose()
                  End Try
  
              Else
                  lblMessage.Text = "Please select bmp, jpg, jpeg, gif or png as file format!"
              End If
          End If
          Return filePath
      End Function
  </code></pre>
  
  <p>This is the code i am using to upload a pic ....but i get an error <strong>" The SaveAs method is configured to require a rooted path, and the path '~/Images/FleaMarket/uploadedImages/mitali2054/5.jpg' is not rooted."</strong></p>