主题：求助，把exe文件转换为文本文件保存。那个帖子找不到了。

论坛里好像有个转换的帖子，居然找不到了。

就是把任何文件都可以转换成0-9/A-Z组成的文本文件保存的，帮忙找一下，或者提供FT算法。

 读取

Dim file As String = "d:\test.xls"

Dim fs As System.IO.FileStream = New System.IO.FileStream(file, System.IO.FileMode.Open)
Dim br As System.IO.BinaryReader = New System.IO.BinaryReader(fs)
Dim byTmp() As Byte = br.ReadBytes(fs.Length)
FileSys.WriteAllText("d:\temp.txt", System.Text.Encoding.Unicode.GetString(byTmp), False)

br.Close()
fs.Close()
fs.Dispose()

 还原

Dim file As String = "d:\temp.txt"

Dim byTmp() As Byte = System.Text.Encoding.Unicode.GetBytes(FileSys.ReadAllText(file))
My.Computer.FileSystem.WriteAllBytes("d:\测试.xls", Bytmp, False)

谢谢甜版！

这个容易出现乱码，我还是使用回BASE64编码吧。