[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

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

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

 

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.tw  或  school (at) mis2000lab.net

 (1) 第一天 ASP.NET MVC5 完整影片(5.5小時 / .NET 4.x版)免費試聽。影片 https://youtu.be/9spaHik87-A 

 (2) 第一天 ASP.NET Core MVC 完整影片(3小時 / .NET Core 6.0~8.0)免費試聽。影片 https://youtu.be/TSmwpT-Bx4I 

[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm  。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b  


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

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

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

ASP.NET MVC  => .NET Core MVC 線上教學  ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課