Public Class SkinDefaults
...

#Region "Constructors"
        Public Sub New(ByVal DefaultType As SkinDefaultType)
            Dim nodename As String = [Enum].GetName(DefaultType.GetType(), DefaultType).ToLower
            Dim filePath As String = System.IO.Path.Combine(DotNetNuke.Common.Globals.ApplicationMapPath, glbDotNetNukeConfig)

            Dim dnndoc As New XmlDocument()
            dnndoc.Load(filePath)
            Dim defaultElement As XmlNode = dnndoc.SelectSingleNode("/configuration/skinningdefaults/" & nodename)

            _folder = defaultElement.Attributes("folder").Value
            _defaultName = defaultElement.Attributes("default").Value
            _adminDefaultName = defaultElement.Attributes("admindefault").Value
        End Sub
#End Region

--

Hal Hayes, Capital DotNetNuke User Group (www.capitaldug.org)