[VB / ASP.NET]FileUpload控制項「批次上傳 / 多檔案同時上傳」的範例 (VB語法)

2008-05-14

以下是新書內容：

FileUpload控制項真的簡單好用，不使用它來作批次上傳，卻要改用別的方法，實在不聰明。
要用就一次用到底，

公開FileUpload控制項「批次上傳」的範例，千萬不能錯過。

FileUpload控制項真的簡單好用，不使用它來作批次上傳，卻要改用別的方法，實在不聰明。要用就一次用到底，

公開FileUpload控制項「批次上傳」的範例，千萬不能錯過。

首先，進行HTML畫面的設計，根據上圖，在畫面上使用多個 FileUpload控制項，然後搭配一個按鈕控制項即可。

除此以外，範例 8_Multi_Upload.aspx還加入了「避免上傳同名檔案」的功能（本範例共有三種子功能，其中沿用本章之前介紹的兩個範例），可以說是把本章的各種範例作一個大融合。

（本文於2008/10/14修改）以下是後置程式碼：

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'--註解：網站上的目錄路徑。所以不寫磁碟名稱（不寫 “實體”路徑）。

Dim saveDir As String = "\[Book]FileUpload\Uploads\"

Dim appPath As String = Request.PhysicalApplicationPath

Dim tempfileName As String = Nothing

Dim myLabel As New System.Text.StringBuilder

Dim i As Integer

For i = 1 To (Request.Files.Count)

Dim myFL As New FileUpload

myFL = CType(Page.FindControl("FileUpload" & i), FileUpload)

If (myFL.HasFile) Then

Dim fileName As String = myFL.FileName

Dim pathToCheck As String = appPath & saveDir & fileName

'========================================(Start)

If (System.IO.File.Exists(pathToCheck)) Then

Dim my_counter As Integer = 2

Dim error_msg As String = Nothing

While (System.IO.File.Exists(pathToCheck))

' --檔名相同的話，目前上傳的檔名（改成 tempfileName），前面會用數字來代替。

tempfileName = my_counter.ToString & "_" & fileName

pathToCheck = appPath & saveDir & tempfileName

my_counter = my_counter + 1

End While

fileName = tempfileName

error_msg = error_msg & "<br>抱歉，您上傳的檔名發生衝突，檔名修改--- " & fileName

Label1.Text = error_msg

End If

' –完成檔案上傳的動作。

Dim savePath As String = appPath & saveDir & fileName

myFL.SaveAs(savePath)

'========================================(End)

myLabel.Append("<hr>檔名---- " & fileName)

End If

Label2.Text = "上傳成功" & myLabel.ToString

End Sub

本範例， C#的語法在此 ---- [C#]FileUpload控制項「批次上傳 / 多檔案同時上傳」的範例

--------------------------------------------------------------------------------------------------------------------------------------------

本範例的 C#語法，請看 2008/8/11補充：感謝 Nick網友的回應，在MasterPage底下，這段程式會出現一些錯誤。只有一行必須修改成----myFL = CType(Me.Master.FindControl("ContentPlaceHolder1").FindControl("FileUpload" & i), FileUpload)

Nick網友修改後的範例：Project.rar

關於本文提到的程式，有一個 FindControl()的用法，請讀者看看這篇文章，也有相關說明 ---- [習題]GridView裡面，樣版（Template）內的控制項，怎麼抓取？使用FindControl就對啦～
Web Service版的 FileUpload，請看這一篇文章：http://www.dotblogs.com.tw/puma/archive/2009/01/06/6660.aspx

...........................................................................................................................................................

補充範例：上面的技巧，我在這裡另外解說

FileUpload控制項「批次上傳 / 多檔案同時上傳」的範例--以「流水號」產生「變數名稱」

http://www.dotblogs.com.tw/mis2000lab/archive/2013/08/19/multiple_fileupload_asp_net_20130819.aspx

本書的相關範例，還有----

避免上傳的「檔名」重複。會自動修改檔名並且提示。
限制上傳檔案的大小（用程式控制、或是透過Web.Config設定檔來作）
限制上傳檔案的「副檔名」
限制上傳時，Server端的目錄（避免上傳到其他目錄，有安全疑慮）

這些都是常用、網路上最常問到的範例，本書通通有～

2010/12/1 補充一個更多人想問的範例：

[習題]FileUpload 批次上傳 / 多檔案同時上傳，上傳成功後展示圖片 (VB語法)

2012/9/5補充：另外一種作法，請參閱 http://www.allenkuo.com/userfiles/share/2012q3/2012-8-28_08-28-10.png

請注意檔案上傳的風險，請看：

檢查上傳檔案副檔名真的有效嗎？分析 IIS6 副檔名解析弱點!!

補充----

ASP.NET Flash 多檔上傳(繁體中文SWF)
網路上找到的相關文章：让UpdatePanel支持上传文件 http://www.cnblogs.com/JeffreyZhao/archive/2008/05/04/build-component-to-upload-file-in-updatepanel.html

今日值班正妹，Jolin

我將思想傳授他人，他人之所得，亦無損於我之所有；

猶如一人以我的燭火點燭，光亮與他同在，我卻不因此身處黑暗。----Thomas Jefferson

線上課程教學，遠距教學 (Web Form 約51hr) https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學，遠距教學 (ASP.NET MVC 約75~88hr) https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

ASP.NET MVC線上課程第一天免費看 (5.5小時)

寫信給我，不要私訊 -- mis2000lab (at) yahoo.com.台灣 或 school (at) mis2000lab.net

ASP.NET遠距教學、線上課程（Web Form + MVC）。 第一天課程， "完整" 試聽。

................ facebook社團 https://www.facebook.com/mis2000lab ......................

................ YouTube (ASP.NET) 線上教學影片 https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

Blog文章 "附的範例" 無法下載，請看 這裡 ...... https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍（嚴格認定）。

......................................................................................................................................................