[VB][ASP.NET]FileUpload控件「批次上传 / 多档案同时上传」的范例

最新推荐文章于 2021-08-11 11:30:16 发布

weixin_30888413

最新推荐文章于 2021-08-11 11:30:16 发布

阅读量204

点赞数

原文链接：http://www.cnblogs.com/mis2000lab/archive/2010/10/18/2008_05_14_3986_FileUpload_VB.html

版权

FileUpload控件「批次上传 / 多档案同时上传」的范例 (VB语法)

http://www.dotblogs.com.tw/mis2000lab/archive/2008/05/14/3986.aspx

FileUpload控件真的简单好用，不使用它来作批次上传，却要改用别的方法，实在不聪明。要用就一次用到底，

公开FileUpload控件「批次上传」的范例，千万不能错过。

首先，进行HTML画面的设计，根据上图，在画面上使用多个 FileUpload控件，然后搭配一个按钮控件即可。

除此以外，范例 8_Multi_Upload.aspx还加入了「避免上传同名档案」的功能（本范例共有三种子功能，其中沿用本章之前介绍的两个范例），可以说是把本章的各种范例作一个大融合。

（本文于2008/10/14修改）以下是后置程序代码：

    Protected Sub Button1_Click()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控件「批次上传 / 多档案同时上传」的范例

ASP.NET案例精编（清华大学出版社 / 作者MIS2000Lab）

http://www.china-pub.com/46063

2009/5/15上市

市场价：￥59.80 RMB（人民幣）

ASP.NET案例精编--适用于VS2005/2008

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

本範例的 C#語法，請看 [C#]FileUpload控制項「批次上傳 / 多檔案同時上傳」的範例
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

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

本书的相关范例，还有----