1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Dim applicationName As String = "Client.exe"
Dim exePath As String = System.IO.Path.Combine(targetDir, applicationName)
' Retrieves .config
Dim config As System.Configuration.Configuration = ConfigurationManager.OpenExeConfiguration(exePath)
' Get applicationSettings from .config
Dim sectionGroup As ConfigurationSectionGroup = config.GetSectionGroup("applicationSettings")
Dim section As ClientSettingsSection = sectionGroup.Sections("Client.My.MySettings")
' Sets TargetDir in .config
' Parameter 1
Dim elementDirectory As SettingElement = section.Settings.Get("Client_localhost_Service1")
elementDirectory.Value.ValueXml.InnerXml = url
' Saves .config
section.SectionInformation.ForceSave = True
config.Save() |
