Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Try
Dim TheFile As FileInfo = New FileInfo(MapPath(".") & "\" & txtOldFile.Text)
If TheFile.Exists Then
File.Move(MapPath(".") & "\" & txtOldFile.Text, MapPath(".") & "\" & txtNewFile.Text)
Else
Throw New FileNotFoundException()
End If
Catch ex As FileNotFoundException
lblStatus.Text += ex.Message
Catch ex As Exception
lblStatus.Text += ex.Message
End Try
End Sub
End Class