參考資料1：How to Save the MemoryStream as a file in c# and VB.Net
Web.config
<?xml version="1.0"?>
<configuration>
<!--這裡自己加入appSettings標籤以及FileUpload_path1-->
<appSettings>
<add key="FileUpload_path1" value="~/FileUpload/File1/" />
</appSettings>
....
</configuration>
Default.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
使用FileUpload.PostedFile.InputStream + MemoryStream儲存檔案<br/>
<asp:FileUpload ID="FileUpload2" runat="server" />
<asp:Button ID="Button2" runat="server" Text="Start Upload2" />
<br/>
<asp:Label ID="Label2" runat="server"></asp:Label>
</div>
</form>
</body>
</html>
Default.aspx.vb
Imports System.IO
Imports System.Web.Configuration
Partial Class _Default
Inherits System.Web.UI.Page
Function EnMD5(ByVal EnString As String, Optional ByVal substring_startIndex As Integer = 8, Optional ByVal select_length As Integer = 16) As String
Dim str_En As String = Nothing
If select_length = 16 Then
str_En = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(EnString, "MD5").ToLower().Substring(substring_startIndex, select_length)
ElseIf select_length = 32 Then
str_En = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(EnString, "MD5").ToLower()
Else
str_En = "0"
End If
Return str_En
End Function
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Not FileUpload2.PostedFile Is Nothing Then
Try
If FileUpload2.HasFile And FileUpload2.PostedFile.ContentLength > 0 Then
Dim filetype As String = Nothing
Dim bool_by As Boolean = True
Dim str_DirPath As String = String.Empty
If (Not WebConfigurationManager.AppSettings("FileUpload_path1") Is Nothing) Then
str_DirPath = Server.MapPath(WebConfigurationManager.AppSettings("FileUpload_path1").ToString())
If Directory.Exists(str_DirPath) = False Then '檢查目錄存不存在
'不存在就建立資料夾
Directory.CreateDirectory(str_DirPath)
End If
'====================================
Dim s As Stream = FileUpload2.PostedFile.InputStream
Dim file_bytes(s.Length - 1) As Byte
s.Read(file_bytes, 0, s.Length)
Dim header As String = Hex(file_bytes(0)) & Hex(file_bytes(1)) & Hex(file_bytes(2)) & Hex(file_bytes(3))
'檢查檔案格式
Select Case header
Case "FFD8FFE0" '*.jfif *.jpe *.jpeg *.jpg
'假如是用小畫家製作的圖或另存的圖檔，header值會是FFD8FFE0，但如果是其他方式產生的jpg圖檔最後一碼會變動
filetype = "jpg"
Case "25504446"
filetype = "pdf"
Case "D0CF11E0"
filetype = "doc"
Case "504B34"
filetype = "docx"
Case Else
bool_by = False
End Select
'=====================================
If bool_by = True Then
'====================================
Dim myFileName As String
myFileName = FileUpload2.PostedFile.FileName
Dim c As String = String.Empty '取得檔案及副檔名System.IO.Path.GetFileName(myFileName)
filetype = myFileName.Substring(myFileName.LastIndexOf(".") + 1)
'=========================================
Dim str_temp_fn As String = String.Empty
'用MD5來作檔案名稱
str_temp_fn = EnMD5("FU_PATH1_" & Date.Now.ToString("yyyyMMddHHmmssffff"), select_length:=32)
Dim Uploadfile As String = String.Empty
'重新命名
c = str_temp_fn & "." & filetype 'MD5命名
Uploadfile = str_DirPath & c
Dim myfilecount As Integer = 1
'檢查檔名是否有重複
While (System.IO.File.Exists(Uploadfile))
'有重複的檔案從2開始
myfilecount = myfilecount + 1
c = str_temp_fn & myfilecount & "." & filetype 'MD5命名 + 第幾個檔案
Uploadfile = str_DirPath & c '重新命名並加上副檔名
End While
'==========================================
Dim ms As New MemoryStream(file_bytes)
Dim fs2 As New FileStream(Uploadfile, FileMode.Create, FileAccess.Write)
ms.WriteTo(fs2)
fs2.Close()
ms.Close()
'==========================================
Label2.Text = Uploadfile
Else
Label2.Text = "檔案格式不符"
End If
s.Close()
s.Dispose() '釋放所有資源要在最後執行,否則即使存檔也無效
End If
Else
Label2.Text = "請選擇檔案"
End If
Catch ex As Exception
Label2.Text = ex.ToString
End Try
Else
Label2.Text = "請選擇檔案"
End If
End Sub
End Class
沒有留言:
張貼留言