VB.Net/File Directory/Memory Stream

MemoryStream Demo

Imports System.Data
Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Text
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters
Imports System.Runtime.Serialization.Formatters.Soap
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Windows.Forms
Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim s As String = "111"
        Dim n As Integer = 452
        Dim mstream As Stream = New MemoryStream()
        " Write to the stream
        Dim bytes1() As Byte = UnicodeEncoding.Unicode.GetBytes(s)
        Dim bytes2() As Byte = BitConverter.GetBytes(n)
        mstream.Write(bytes1, 0, bytes1.Length)
        mstream.Write(bytes2, 0, bytes2.Length)
        " Reset the stream to the beginning
        mstream.Seek(0, SeekOrigin.Begin)
        " Read from the stream
        Dim bytes3(mstream.Length - 4) As Byte
        Dim bytes4(4) As Byte
        mstream.Read(bytes3, 0, bytes3.Length)
        mstream.Read(bytes4, 0, bytes4.Length)
        " Do something with the data
        Console.WriteLine(UnicodeEncoding.Unicode.GetString(bytes3) + " " + BitConverter.ToInt32(bytes4, 0))
    End Sub
End Class

Memory Stream Writer and Reader

Imports System
Imports System.IO
Imports System.Text

Public Class MainClass
   Shared Sub Main()
        Dim memory_stream As New MemoryStream()
        Dim binary_writer As New BinaryWriter(memory_stream)
        binary_writer.Write("www.vbex.ru")
        Dim binary_reader As New BinaryReader(memory_stream)
        memory_stream.Seek(0, SeekOrigin.Begin)
        Console.WriteLine(binary_reader.ReadString())
        binary_reader.Close()
   End Sub 
End Class

Stream Reader and Writer for a MemoryStream

Imports System
Imports System.IO
Imports System.Text

Public Class MainClass
   Shared Sub Main()
        Dim memory_stream As New MemoryStream()
        Dim stream_writer As New StreamWriter(memory_stream)
        stream_writer.Write("www.vbex.ru")
        stream_writer.Flush()
        Dim stream_reader As New StreamReader(memory_stream)
        memory_stream.Seek(0, SeekOrigin.Begin)
        Console.WriteLine(stream_reader.ReadToEnd())
        stream_reader.Close()
   End Sub 
End Class