Public Shared SetSettingStsXMLobj As New Object() Public Sub SetSettingStsXML() SyncLock SetSettingStsXMLobj Dim XmlFilename = System.Web.Hosting.HostingEnvironment.MapPath("App_Data\XML\Setting.xml") Dim xml As New System.Xml.XmlDocument() xml.Load(XmlFilename) Dim XXXNodeAs System.Xml.XmlNodeList = xml.SelectNodes("descendant::XXX_Status[X_status ='Active']") Dim XXXNode As New List(Of String) For Each SerNod As System.Xml.XmlNode In XXXNode ...... Next If xxID.Count > 0 Then ........ End If Dim activexxDt As DataTable =....... activexxDt.TableName = "XXXX_Status" activexxDt.WriteXml(XmlFilename, XmlWriteMode.WriteSchema, True) End SyncLock End Sub
Dim XXXXObj As New XXClass XXXXObj.SetSettingStsXML()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)