Public Function AddZipFile(ByVal srcFileName As String, ByVal zipFileName As String, ByRef ERRORStr As String) As Boolean
ERRORStr = ""
If Not File.Exists(srcFileName) Then
ERRORStr = "WARN|原文件[" + srcFileName + "]路徑不正確,請查正。"
Return False
End If
Dim result As Boolean = False
Dim fs As FileStream = Nothing
Dim output As FileStream = Nothing
Dim zipStream As GZipStream = Nothing
Try
fs = New FileStream(srcFileName, FileMode.Open, FileAccess.Read)
Dim buffer As Byte() = New Byte(fs.Length) {}
fs.Read(buffer, 0, buffer.Length)
fs.Close()
If File.Exists(zipFileName) Then
Try
File.Delete(zipFileName)
Catch ex As Exception
ERRORStr = "WARN|壓縮檔[" + zipFileName + "]已存在且刪除失敗,請查正。"
Return False
End Try
End If
output = File.Create(zipFileName)
zipStream = New GZipStream(output, CompressionMode.Compress, False)
zipStream.Write(buffer, 0, buffer.Length)
result = True
Catch ex As Exception
ERRORStr = "ERROR|系統在函數[AddZipFile]中發生錯誤:" + ex.ToString
result = False
Finally
If Not zipStream Is Nothing Then
zipStream.Flush()
zipStream.Close()
End If
End Try
Return result
End Function