/Source Code/FileArchive/EntryData.vb

 1Friend Class EntryData
 2
 3    Friend FileName As String
 4    Friend VirtualFileName As String
 5    Friend Position As Integer
 6
 7    Public Sub New(ByVal fileName As String, _
 8                   ByVal virtualFileName As String, _
 9                   Optional ByVal position As Integer = 0)
10
11        Me.FileName = fileName
12        Me.VirtualFileName = virtualFileName
13        Me.Position = position
14
15    End Sub
16
17End Class