參考網址:
https://dotblogs.com.tw/mis2000lab/2012/04/26/net45_fileupload_allowmultiple
HTML畫面設計:
注意!!只有一個 FileUpload控制項而已。
它的 AllowMultiple屬性已經啟動!
VB語法,範例如下:
它的 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
'--註解:網站上的目錄路徑。所以不寫磁碟名稱(不寫 “實體”路徑)。
'-- 上傳後的存檔目錄,請依照您的環境作修改。
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
沒有留言:
張貼留言