Dim bString As New System.Text.StringBuilder Dim bArray As Byte() = IO.File.ReadAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\a.mp3") For Each b As Byte In bArray bString.Append(CInt(b)) Next RichTextBox1.Text = bString.ToString
File.WriteAllText("C:\\a.mp3", RichTextBox1.Text)
ReadAllBytes
WriteAllBytes
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)