由 Web Form Submit 檔案至 Web Server 上指定 Directory

 

   Default.aspx (Form 內必要部分)
 
   <form id="form1" runat="server">
   <div>
 
   <asp:FileUpload ID="FileUpload1" runat="server" />
   <br />
   <asp:Button ID="Button1" runat="server" Text="Submit" />
 
   </div>
   </form>
 

 

   Default.aspx.vb
 
   Imports System.Data
   Imports System.IO
   Imports System.Web
   Imports System.Configuration
   Imports System.Web.UI
   Imports System.Web.Security
   Imports System.Web.UI.HtmlControls
   Imports System.Web.UI.WebControls
   Imports System.Web.UI.WebControls.WebParts
 
   Partial Class _Default
      Inherits System.Web.UI.Page
 
      Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 
         Dim filereceived As String = FileUpload1.PostedFile.FileName
         Dim filename As String = Path.GetFileName(filereceived)
         Dim fileuploadpath As String = "C:\AAAA"
         FileUpload1.PostedFile.SaveAs(Path.Combine(fileuploadpath, filename))
 
      End Sub
   End Class