<%@ Import namespace="System.IO"%>
<html>
<head>
<title>Uploading a File</title>
<script language="VB" runat="server">
Dim savePath As String = "C:\temp\"
Sub Upload_Click(source As Object, e As EventArgs)
If Not (uploadedFile.PostedFile Is Nothing) Then
Try
Dim postedFile = uploadedFile.PostedFile
Dim filename As String = Path.GetFileName(postedFile.FileName)
Dim contentType As String = postedFile.ContentType
Dim contentLength As Integer = postedFile.ContentLength
postedFile.SaveAs(savePath & filename)
message.Text = postedFile.Filename & " uploaded" & _
"<br>content type: " & contentType & _
"<br>content length: " & contentLength.ToString()
Catch exc As Exception
message.Text = "Failed uploading file"
End Try
End If
End Sub
</script>
</head>
<body>
<form enctype="multipart/form-data" runat="server">
Select File to Upload:
<input id="uploadedFile" type="file" runat="server">
<p>
<input type=button id="upload"
value="Upload"
OnServerClick="Upload_Click"
runat="server">
<p>
<asp:Label id="message" runat="server"/>
</form>
</body>
</html>