ASP.NET

Private Function Uploaded() As String
       Dim filePath As String = AppSettings("~\Images")
       Dim SaveLocation As String = String.Empty
       If Not txtImgURL.Text.Length = 0 And Left(txtImgURL.Text, filePath.Length) <> filePath Then
           Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(txtImgURL.Text).ToLower()
           Dim fileExtention As String = System.IO.Path.GetExtension(txtImgURL.Text).ToLower()
           SaveLocation = System.IO.Path.Combine(filePath, fileName & fileExtention)
           Dim physicalLocation As String = Server.MapPath(SaveLocation)

           If File.Exists(physicalLocation) = True Then
               Dim sequencer As Integer = 1
               SaveLocation = System.IO.Path.Combine(filePath, fileName & "_" & sequencer.ToString & fileExtention)
               physicalLocation = Server.MapPath(SaveLocation)

               Try
                   My.Computer.FileSystem.CopyFile(txtImgURL.Text, physicalLocation)
               Catch
                   My.Computer.FileSystem.CopyFile(Server.MapPath(txtImgURL.Text), physicalLocation)
               End Try
           Else
               Try
                   My.Computer.FileSystem.CopyFile(txtImgURL.Text, physicalLocation)
               Catch
                   My.Computer.FileSystem.CopyFile(Server.MapPath(txtImgURL.Text), physicalLocation)
               End Try
           End If
       End If
       Return SaveLocation
   End Function