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

以下是新書內容:

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
        Next

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

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

 

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

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

 

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

 

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

 
 

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

  • 避免上傳的「檔名」重複。會自動修改檔名並且提示。
  • 限制上傳檔案的大小(用程式控制、或是透過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 副檔名解析弱點!!

 

 

 

補充----

 

 

 

今日值班正妹,Jolin

 
 

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

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

寫信給我--  mis2000lab (at) yahoo.com.台灣  或是  school (at) mis2000lab.net

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

................   Google+   https://plus.google.com/100202398389206570368/posts ........

................  YouTube (ASP.NET) 線上教學影片  http://goo.gl/rGLocQ

*********************************************************************************************

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

************************************************************(歡迎索取,免費申請)*****

 

ASP.NET遠距教學、線上課程(Web Form + MVC)第二門 課程「四折」-- 以MVC課程作為優惠。

第一天完整課程,提供 "完整" 試聽。  如不滿意 全額退費!

 

 

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

請看我們的「售後服務」範圍(嚴格認定)

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

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

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講

事先錄製好的影片,並非上課時側錄!   觀看影片時,有如我「一對一」跟您面對面講課

 

    MIS2000 Lab.  線上教學影片(YouTube) **免費觀賞**