[.Net2.0]上傳檔案後存於目錄下

1.在網頁內放置
<br /><input id="UpFile" runat="server" type="file"><br /><asp:Button id="btnAdd" runat="server" Text="上傳" OnClick="btnAdd_Click"></asp:Button><br />

2.按鈕事件
Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim Pic_FilePath As String = Server.MapPath("Upload")
Dim file_form, file_size As String

If (UpFile.PostedFile.FileName <> "") Then
file_form = UpFile.PostedFile.FileName.Substring(UpFile.PostedFile.FileName.LastIndexOf("."))
file_size = UpFile.PostedFile.ContentLength.ToString
Dim FileName As String = "Sample_1"
UpFile.PostedFile.SaveAs(Pic_FilePath + "\" + FileName + file_form)
End If
If (UpFile.PostedFile.FileName <> "") Then
Response.Write("檔案上傳成功")
End If
End Sub