Enlaces patrocinados:

Trucos de ASP.NET Leer y Escribir en el AppSettings

Imports System
Public Class XMLConfiguracion

Private FicheroConfiguracion As String
Public Sub New(ByVal Fichero As String)
FicheroConfiguracion = Fichero
End Sub

Public Function DevuelveValor(ByVal Llave As String)
Dim FichXml As New Xml.XmlDocument
FichXml.Load(FicheroConfiguracion & ".config")
Dim Child As Xml.XmlNode = FichXml.DocumentElement.SelectSingleNode("/configuration/appSettings/add[@key=""" & Llave & """]")
If Child Is Nothing Then
Return Nothing
Else
Return Child.Attributes("value").Value
End If
End Function

Public Function EstableceValor(ByVal Llave As String, ByVal NuevoValor As String)
Dim FichXml As New Xml.XmlDocument
FichXml.Load(FicheroConfiguracion & ".config")
Dim Child As Xml.XmlElement = CType(FichXml.DocumentElement.SelectSingleNode("/configuration/appSettings/add[@key=""" & Llave & """]"), Xml.XmlElement)

If Child Is Nothing Then
Return False
Else
Child.Attributes("value").Value = NuevoValor
FichXml.Save(FicheroConfiguracion & ".config")
Return True
End If
End Function
End Class
Compartir en las redes sociales:



Compartir en: Compartir en Facebook

Dejar un comentario
Nombre:

Mail:

Web:

Comentario:

Código de seguridad

Captcha

Inserta el código de seguridad