<Serializable()> _
Public Structure SFileSystemObject
	Public Path As String
	Public Name As String
	Public Type As EFileSystemObjectType
 
	Public Sub New(ByVal _Path As String, ByVal _Name As String, ByVal _Type As _
  EFileSystemObjectType)
		Path = _Path
		Name = _Name
		Type = _Type
	End Sub
End Structure
 
Public Enum EFileSystemObjectType As Integer
	Directory
	File
	Drive
End Enum

		Dim xmlSerializer As New System.Xml.Serialization.XmlSerializer(GetType(List( _
  Of SFileSystemObject)))
		Dim memStream As New MemoryStream()
		xmlSerializer.Serialize(memStream, list)
 
		BinaryWriter.Write(memStream.Length)
		BinaryWriter.Write(memStream.ToArray)
 
		list.Clear()
		memStream.Close()
		memStream.Dispose()
	End Sub

			Dim xmlSerializer As New System.Xml.Serialization.XmlSerializer(GetType(List( _
  Of SFileSystemObject)))
			Dim memStream As New MemoryStream
			Dim length As Integer = BinaryReader.ReadInt32()
			Dim b As Byte() = BinaryReader.ReadBytes(length)
			memStream.Write(b, 0, length)
			list = CType(xmlSerializer.Deserialize(memStream), List(Of _
  SFileSystemObject))
			memStream.Close()
			memStream.Dispose()