2019年12月11日 星期三

FileUpload控制項批次上傳範例

找批次上傳的參考時的筆記,紀錄一下,要 .NET版本4.5才能用...


參考網址:
https://dotblogs.com.tw/mis2000lab/2012/04/26/net45_fileupload_allowmultiple



HTML畫面設計:
      注意!!只有一個 FileUpload控制項而已。
                      它的 AllowMultiple屬性已經啟動!



VB語法,範例如下:
    Protected Sub Button1_Click(sender As Object, e As 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

        '===========================================
        '== Ony .NET 4.5有這個新的 AllowMultiPle屬性
        '===========================================


        Dim fileName, savePath As String
        For Each postedFile As HttpPostedFile In FileUpload1.PostedFiles
            fileName = postedFile.FileName

            ' –完成檔案上傳的動作。
            savePath = appPath & saveDir & fileName
            postedFile.SaveAs(savePath)

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

        Next

        Label1.Text = "上傳成功" & myLabel.ToString()
    End Sub