Imports System.IO Public Class ClassLayout Public Enum LayoutName LayoutMain End Enum Public Enum LayoutComponent DockManager DocumentManager End Enum Public Shared Function GetLayoutPath(LayoutName As LayoutName, Component As LayoutComponent) As String Dim oFileName As String = $"{LayoutName.ToString}-{Component.ToString}.xml" Return IO.Path.Combine(GetAppDataFolder(), ClassConstants.FOLDER_NAME_LAYOUT, oFileName) End Function Private Shared Function GetAppDataFolder() As String Dim oLocalAppData = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) Dim oProduct = My.Application.Info.ProductName Dim oCompany = My.Application.Info.CompanyName Return Path.Combine(oLocalAppData, oCompany, oProduct) End Function End Class