Asp.net中上傳大的檔案(Vb.net程式碼)
阿新 • • 發佈:2019-02-18
Sub Button1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ServerClick
'檢查上傳檔案不為空
IfNot myFile.PostedFile IsNothingThen
Dim nam, newext, newname AsString
Dim i AsInteger
nam = myFile.PostedFile.FileName
'取得檔名(抱括路徑)裡最後一個"."的索引
i =CInt(nam.LastIndexOf("."))
'取得副檔名
newext = nam.Substring(i)
'這裡自動根據日期和檔案大小不同為檔案命名,確保檔名不重複
newname = Now.DayOfYear.ToString() + myFile.PostedFile.ContentLength.ToString()
'儲存檔案到你所要的目錄,這裡是IIS根目錄下的upload目錄.你可以改變.
'注意: 我這裡用Server.MapPath()取當前檔案的絕對目錄.在asp.net裡"/"必須用"//"代替
'Response.Write(Server.MapPath("//upload//" + newname + newext))
myFile.PostedFile.SaveAs(Server.MapPath("upload/"+ newname + newext))
'得到這個檔案的相關屬性:檔名,檔案型別,檔案大小
fname.Text = myFile.PostedFile.FileName
fenc.Text = myFile.PostedFile.ContentType
fsize.Text = myFile.PostedFile.ContentLength.ToString()
EndIf
End Sub
'檢查上傳檔案不為空
IfNot myFile.PostedFile IsNothingThen
Dim nam, newext, newname AsString
Dim i AsInteger
nam = myFile.PostedFile.FileName
i =CInt(nam.LastIndexOf("."))
'取得副檔名
newext = nam.Substring(i)
'這裡自動根據日期和檔案大小不同為檔案命名,確保檔名不重複
newname = Now.DayOfYear.ToString() + myFile.PostedFile.ContentLength.ToString()
'儲存檔案到你所要的目錄,這裡是IIS根目錄下的upload目錄.你可以改變.
'注意: 我這裡用Server.MapPath()取當前檔案的絕對目錄.在asp.net裡"/"必須用"//"代替
'Response.Write(Server.MapPath("//upload//" + newname + newext))
myFile.PostedFile.SaveAs(Server.MapPath("upload/"+ newname + newext))
'得到這個檔案的相關屬性:檔名,檔案型別,檔案大小
fname.Text = myFile.PostedFile.FileName
fenc.Text
fsize.Text = myFile.PostedFile.ContentLength.ToString()
EndIf
End Sub