Here it is (yeah, it's not the greatest, but it does work... it was in my early days with ASP.NET (this code is over a year old) and was just intended as a learning experience, these days I put all my server side code in the code behind files to keep things cleaner looking (BTW, this isn't in production either, or I would have cleaned it up quite a bit)). You'll need to change strFilePath to something appropriate for your server. Note that as it is, the password is sent in the clear, so SSL would be needed to keep the password secure.
I'll be recoding this eventually as a future project here at work will be calling for a web based "file cabinet" for various staff members. Each person will get their own "cabinet" and will be able to add/view/edit/remove items they control to their cabinet. Certain higher level users will be able to view all contents of user "cabinets" and/or deposit certain files into the user's "cabinet", which will not necessarily be editable/deletable/viewable by the "cabinet" owner.
fileupload.aspx
<%@ Page Language="VB"
Explicit="True" %>
<HTML>
<script runat="server">
Sub UploadBtn_Click(Sender as Object, e as EventArgs)
Dim strFileName As String
Dim strFilePath As String
Dim strPass As String
Dim lngLength As Long
lngLength = MyFile.PostedFile.ContentLength
strPass = "0987654321qazxcvbnm,./']=-"
If StrComp(txtPwd.Text, strPass, 0) <> 0 Then
FileName.InnerHtml = "File not saved, invalid password!"
Else
strFilePath = "DIRECT_PATH_TO_THE_WEB_GOES_HERE\THIS_IS_THE_SUBDIRECTORY_FOR_THE_FILES_TO_BE_UPLOADED_TO\"
strFileName = MyFile.PostedFile.FileName
strFileName = Right(strFileName, strFileName.length() - InStrRev(strFileName, "\"))
If lngLength > 1024000000 Then
FileName.InnerHtml = "File not saved, too big."
Else
' Display information about posted file
'FileName.InnerHtml = MyFile.PostedFile.FileName
FileName.InnerHtml = strFileName
' Save uploaded file to server
MyFile.PostedFile.SaveAs(strFilePath & strFileName)
End If
End If
MyContentType.InnerHtml = MyFile.PostedFile.ContentType
ContentLength.InnerHtml = cStr(lngLength)
FileDetails.Visible = True
End Sub
</script>
<body>
<form id="Form1" action="fileupload.aspx" method="post" encType="multipart/form-data" runat="server">
<h1>ASP.NET File Upload Example</h1>
<P>Select File To Upload to Server: <input id="MyFile" type="file" name="MyFile" runat="server">
<br>
</P>
<asp:Label id="lblPwd" runat="server">Password: </asp:Label>
<asp:TextBox id="txtPwd" runat="server" MaxLength="50" TextMode="Password"></asp:TextBox>
<br>
<br>
<input type="submit" value="Upload!" OnServerclick="UploadBtn_Click" runat="server" ID="Submit1" NAME="Submit1">
<br>
<br>
<br>
<div id="FileDetails" Visible="false" runat="server">
FileName:
<span id="FileName" runat="server"></span><br>
ContentType:
<span id="MyContentType" runat="server"></span><br>
ContentLength:
<span id="ContentLength" runat="server">bytes</span>
<br>
</div>
</form>
</body>
</HTML>
fileupload.aspx.vb
Public Class fileupload
Inherits System.Web.UI.Page
Protected WithEvents MyFile As System.Web.UI.HtmlControls.HtmlInputFile
Protected WithEvents Submit1 As System.Web.UI.HtmlControls.HtmlInputButton
Protected WithEvents FileName As System.Web.UI.HtmlControls.HtmlGenericControl
Protected WithEvents MyContentType As System.Web.UI.HtmlControls.HtmlGenericControl
Protected WithEvents txtPwd As System.Web.UI.WebControls.TextBox
Protected WithEvents lblPwd As System.Web.UI.WebControls.Label
Protected WithEvents FileDetails As System.Web.UI.HtmlControls.HtmlGenericControl
Protected WithEvents ContentLength As System.Web.UI.HtmlControls.HtmlGenericControl
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
End Class