<script runat="server">
Sub btnUpload_OnClick(sender As Object, e As EventArgs)
Dim myUpoad As HttpPostedFile = Request.Files("myFile1")
If myUpoad.FileName <> "" Then
Dim strFileName = System.IO.Path.GetFileName(myUpoad.FileName)
myUpoad.SaveAs(Server.MapPath("Myfiles/" & strFileName))
Me.lblText.Text = strFileName & " Uploaded.<br>"
End If
End Sub
</script>