Viewing source for recipe2111vb.aspx
<%@ Page Language="VB" %>
<script runat="server">
Sub UploadButton_Click(sender As Object, e As EventArgs)
If Not (FileInput.PostedFile Is Nothing) Then
Try
FileInput.PostedFile.SaveAs("c:\test.txt")
Catch exc As Exception
Response.Write(exc.Message)
End Try
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<form id="Form1" method="post" enctype="multipart/form-data" runat="server">
<p>
<input id="FileInput" type="file" name="FileInput" runat="server" />
</p>
<p>
<asp:Button id="UploadButton" onclick="UploadButton_Click" runat="server" Text="Upload"></asp:Button>
</p>
</form>
</body>
</html>