Imports System.IO
Imports DigitalData.Modules.Logging
Public Class frmUserBasics
    Private _Logger As Logger
    Private _MyLogger As LogConfig
    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        ' Specify that the link was visited.
        Me.LinkLabel1.LinkVisited = True
        ' Navigate to a URL.
        System.Diagnostics.Process.Start("http://www.didalog.de/Support")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Process.Start(_MyLogger.LogDirectory)
    End Sub

    Private Sub frmUserBasics_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim oUserAppdata = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\EDMI_Client_Suite\Log")

        _MyLogger = New LogConfig(LogConfig.PathType.CustomPath, oUserAppdata)
        _Logger = _MyLogger.GetLogger()
    End Sub
End Class