Dim fs As New IO.FileStream("f:\123.xls" , IO.FileMode.Open , IO.FileAccess.Read)
Dim br As New IO.BinaryReader(fs)
Dim bs() As Byte = br.ReadBytes(fs.Length)
Dim str As String ="这是文件的附加信息"
Dim bstr() As Byte = Encoding.Default.GetBytes(str)
Dim lst As new List(of Byte)
Dim bl As Byte = bstr.length
lst.Add(bl )
lst.AddRange(bstr)
lst.AddRange(bs)
Dim ImageString As String = Convert.ToBase64String(lst.ToArray)
Output.show(ImageString)
Dim ziByte() As Byte = Convert.FromBase64String(ImageString)
Dim bl2 As Integer = ziByte(0)
Dim filebyte(bl2) As Byte
For i As Integer = 1 To bl2
filebyte(i-1) = ziByte(i)
Next
Dim file As String = Encoding.Default.GetString(filebyte)
Output.Show(file)
Dim ms As New IO.FileStream("f:\32111.xls", IO.FileMode.Create)
ms.Write(ziByte, bl2+1,ziByte.length - bl2 - 1)
ms.close
加好友 
发短信
Post By：2017/11/3 22:13:00 [只看该作者]
