<SCRIPT language=VB runat="server">
    Sub Button1_Click(Source As Object, e As EventArgs)
        
        If Text1.Value = "" Then
            Span1.InnerHtml = "Error: you must enter a file name"
            Return
        End If
        
        If Not (File1.PostedFile Is Nothing) Then
            Try
                File1.PostedFile.SaveAs(("e:\userdirs\wwwroot\myusername" + Text1.Value))
                Span1.InnerHtml = "File uploaded successfully to <b>...\myusername" & _ 
                                      Text1.Value & "</b> on the Web server"
            Catch exc As Exception
                Span1.InnerHtml = "Error saving file <b>...\myusername" & _ 
                                      Text1.Value & "</b><br>" & exc.ToString()
            End Try
        End If
    End Sub 'Button1_Click
 
  </SCRIPT>
 </P>
<H3>HtmlInputFile Sample</H3>





<P class=heading>
<FORM encType=multipart/form-data runat="server">
Select File to Upload: 
<INPUT id=File1 type=file maxLength=30 runat="server">
</P> <BR>






<P>Save as filename (nopath): <INPUT id=Text1 runat="server"><BR>


     

 <P><SPAN id=Span1 style="FONT:8pt verdana" runat="server"><BR>
<P><INPUT id=Button1 type=button value=Upload runat="server" OnServerClick="Button1_Click"> 
</FORM>