ZipTrack

Imports System.IO
Imports System.Text.RegularExpressions
Imports vb = Microsoft.VisualBasic

Friend Module modStrings

    Friend ReadOnly Property DataDirectory() As String
        Get
            Return ParentDirectory + "\Data\"
        End Get
    End Property

    Friend ReadOnly Property HelpFile() As String
        Get
            Return ParentDirectory + "\Help\ZipTrack.chm"
        End Get
    End Property

    Friend ReadOnly Property ParentDirectory() As String
        Get
            Dim dir As New DirectoryInfo(Application.StartupPath)
            Return dir.Parent.FullName
        End Get
    End Property

End Module