Hola chcma
Cita: Bueno, que yo sepa lo tengo todo bien, ¿No?, vamos, no entiendo por que me elimina el fichero XML,
Hice las pruebas con tu Funcion y en mi caso no tuve problemas, me regreso perfectamente la info de un archivo que cargué (test.config) dentro de mi proyecto.
Solo que te sugiero que quites el return Nothing ya que con ello te sales de la funcion sin haber recorrido las demas kesy (si existen)
Tengo ésto y me funciona.
Cita: Public Function DevuelveValor2(ByVal Llave As String) As String
Dim FichXml As XmlDocument
FichXml = New XmlDocument
FichXml.Load(Server.MapPath("test.config"))
Dim Child As XmlNode
For Each Child In FichXml.FirstChild.NextSibling.ChildNodes
If Child.HasChildNodes Then
Dim ChildApp As XmlNode
For Each ChildApp In Child.ChildNodes
If ChildApp.Attributes("key").Value = "prueba" Then
Return ChildApp.Attributes("value").Value()
End If
Next
End If
Next
End Function
Cualquier cosa por aqui andamos..
