Public el As New ErrorLogger

    Public Copyright As String = String.Format("Copyright ⓒ 2015. program1472. [{0} {1} - Professional]", Application.ProductName, DeploymentVersion)

 

    Public MyDocuments As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments

 

    Public CHROME_PATH As String = Path.Combine(MyDocuments, "Chrome")

 

    Public APP_PRODUCT_PATH As String = Path.Combine(MyDocuments, Application.ProductName)

 

    Public APP_LOG_PATH As String = Path.Combine(APP_PRODUCT_PATH, "LOG")

    Public APP_EXPORT_PATH As String = Path.Combine(APP_PRODUCT_PATH, "Export")

    Public APP_SETTINGS_PATH As String = Path.Combine(APP_PRODUCT_PATH, "Settings")

    Public APP_DOWNLOAD_PATH As String = Path.Combine(APP_PRODUCT_PATH, "DownFolder")

    Public APP_USER_DATA_PATH As String = Path.Combine(APP_PRODUCT_PATH, "User Data")

    Public APP_ERR_LOG_PATH As String = Path.Combine(APP_PRODUCT_PATH, "Err Log")

 

    Public APP_ENC_PATH As String = Path.Combine(Application.StartupPath, "enc")

 

    Public UserAppDataPath As String = Application.UserAppDataPath

 

    Public CustomLocalAppDataPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Google\Chrome\User Data")

    Public UserData As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data"

 

    Public DESKTOP_PATH As String = My.Computer.FileSystem.SpecialDirectories.Desktop

    Public DESKTOP_PROGRAM1472_PATH As String = Path.Combine(DESKTOP_PATH, "program1472.com")

 

    Public Sub New()

        For Each fPath As String In {CHROME_PATH, APP_PRODUCT_PATH, APP_LOG_PATH, DESKTOP_PROGRAM1472_PATH, APP_EXPORT_PATH, APP_SETTINGS_PATH, APP_DOWNLOAD_PATH, APP_USER_DATA_PATH}

            If Not Directory.Exists(fPath) Then Directory.CreateDirectory(fPath)

        Next

    End Sub