Dim TheFile As FileInfo = New FileInfo(MapPath(".") & "\" & txtFile.Text)
If TheFile.Exists Then
File.Delete(MapPath(".") & "\" & txtFile.Text)
Else
Throw New FileNotFoundException()
End If
Catch ex As FileNotFoundException
lblStatus.Text += ex.Message
Catch ex As Exception
lblStatus.Text += ex.Message