[HELP]Virtual machine program

Public Class VirtualFileSystem
	''' <summary>
	''' The virtual File System is created by DragonHunter
	''' This is some hardcoded stuff so if you use it in ur own project
	''' Or somewhere else the credits goes to DragonHunter
	''' </summary>
	Public Sub New()
	End Sub

	Public Directories As SortedList(Of String, VirtualDirectory)

	Public Sub Initialize(VirtualizeFolder As String)
		Me.Directories = New SortedList(Of String, VirtualDirectory)()

		'Lets load the files into RAM
		For Each file__1 As FileInfo In New DirectoryInfo(VirtualizeFolder).GetFiles("*.*", SearchOption.AllDirectories)
			If Not Directories.ContainsKey(file__1.Directory.FullName) Then
				Directories.Add(file__1.Directory.FullName, New VirtualDirectory())
				Console.WriteLine("Virtualizing Directory: " + file__1.Directory.FullName)
			End If

			Directories(file__1.Directory.FullName).AddFile(New VirtualDirectory.VirtualFile(File.ReadAllBytes(file__1.FullName), File.ReadAllText(file__1.FullName), New FileInfo(file__1.FullName)), file__1.Name)
		Next

		Dim count As Integer = 0
		For Each vDir As VirtualDirectory In Directories.Values
			count += vDir.GetFiles().Length
		Next
		Console.WriteLine("Total virtualized files: " & count)
	End Sub

	Public Sub DeleteDirectory(DirectoryName As String)
		If Directories.ContainsKey(DirectoryName) Then
			Directories.Remove(DirectoryName)
		End If
	End Sub

	Public Class VirtualDirectory
		Private _files As SortedList(Of String, VirtualFile)

		Public Sub New()
			Me._files = New SortedList(Of String, VirtualFile)()
		End Sub

		Public Sub AddFile(VFile As VirtualFile, FileName As String)
			If Not _files.ContainsKey(FileName) Then
				_files.Add(FileName, VFile)
			End If
		End Sub

		Public Function GetFiles() As VirtualFile()
			Dim files As New List(Of VirtualFile)()
			For i As Integer = 0 To _files.Count - 1
				files.Add(_files.Values(i))
			Next
			Return files.ToArray()
		End Function

		Public Function GetFile(FileName As String) As VirtualFile
			If _files.ContainsKey(FileName) Then
				Return _files(FileName)
			End If
			Return Nothing
		End Function

		Public Sub Copy(sourceFileName As String, destFileName As String, overwrite As Boolean)
			If Not _files.ContainsKey(sourceFileName) Then
				Throw New FileNotFoundException("File not found", sourceFileName)
			End If
			If Not overwrite AndAlso _files.ContainsKey(destFileName) Then
				Throw New IOException("Could not overwrite existing file")
			End If
			If sourceFileName = destFileName Then
				Throw New Exception("File already exists")
			End If

			_files.Add(destFileName, _files(sourceFileName))
		End Sub

		Public Sub Create(fileName As String, file As VirtualFile)
			If _files.ContainsKey(fileName) Then
				Throw New Exception("File already exists")
			End If
			_files.Add(fileName, file)
		End Sub

		Public Class VirtualFile
			Private FileBytes As Byte()
			Private FileStrings As String
			Public Fileinfo As FileInfo

			Public Sub New(FileBytes As Byte(), FileStrings As String, Fileinfo As FileInfo)
				Me.FileBytes = FileBytes
				Me.FileStrings = FileStrings
				Me.Fileinfo = Fileinfo
			End Sub

			Public Sub WriteAllBytes(bytes As Byte(), offset As Integer)
				Dim ms As New MemoryStream(FileBytes)
				ms.Write(bytes, offset, bytes.Length)
				FileBytes = ms.ToArray()
			End Sub

			Public Sub WriteAllText(contens As String)
				FileStrings += contens
			End Sub

			Public Function ReadAllBytes() As Byte()
				Return FileBytes
			End Function

			Public Function ReadAllText() As String
				Return FileStrings
			End Function

			Public Function MemoryStreamBytes() As MemoryStream
				Return New MemoryStream(FileBytes)
			End Function
		End Class
	End Class
End Class