从Web访问配置文件 - 无应用程序

Question

我正在研究一个项目，该项目需要我编写的.config文件（用ASP.NET编写）。更改需要由我正在开发的管理网站进行。当用户在Web应用程序上选择"更新"按钮时，执行以下代码：

Protected Sub ModifyAppConfig()
        Try
            Dim configFile = "C:AppApp.exe.config"
            Dim configFileMap As New ExeConfigurationFileMap
            configFileMap.ExeConfigFilename = configFile
            Dim config As System.Configuration.Configuration
            config = ConfigurationManager.OpenMappedExeConfiguration(configFileMap, ConfigurationUserLevel.None)
            config.AppSettings.Settings("LogDirectory").Value = txtLogDirectory.Text '* EXCEPTION IS THROWN HERE *
            config.Save()
        Catch ex As Exception
        End Try
    End Sub

当应用程序试图访问" logDirectory" AppSettings索引时，会引发异常。Object reference not set to an instance of an object.在调试期间，AppSettings.Count = 0。怎么没有导入AppSettings？

我知道它可以正确打开文件，因为有连接串数据。以下是配置文件：

<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <connectionStrings>
      <add name="conn" connectionString="Data Source=DBASE;Initial Catalog=NGDevl;Integrated Security=True" providerName="System.Data.SqlClient"/>
    </connectionStrings>
    <startup> 
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
    </startup>
    <appSettings>
      <add key="LogDirectory" value="C:CTemp"/>
    </appSettings>
</configuration>

如何访问和修改AppSettings（" LogDirectory"）值？

Answer 1

坦率地说，我的程序没有任何问题。

我已经创建了一个vb.net/console模式mcve，它可能有助于您的故障排除

module1.vb

Imports System.Configuration
'
' EXAMPLE OUTPUT:
'   Reading config file(test.exe.config)...
'   config.AppSettings.Settings("LogDirectory") : C : CTemp
'   connectionStrings: <connectionStrings>
'   <add name = "conn" connectionString="Data Source=DBASE;Initial Catalog=NGDevl;
'   Integrated Security=True" providerName="System.Data.SqlClient"/>
'     </connectionStrings>
'   appSettings: <appSettings>
'   <add key = "LogDirectory" value="C:CTemp"/>
'     </appSettings>
'   startup: <startup>
'   <supportedRuntime version = "v4.0" sku=".NETFramework,Version=v4.5"/>
'     </startup>
'   3 sections were found.
'
Module Module1
    Sub Main()
        ' Get filename
        Dim args() As String = System.Environment.GetCommandLineArgs()
        If args.Length <> 2 Then
            Console.WriteLine("USAGE: ReadAppConfig <pathtoapp.config>")
            Return
        End If
        Dim configFilePath As String = args(1)
        ' Open config file
        Try
            Console.WriteLine("Reading config file(" & configFilePath & ")...")
            Dim configFileMap As New ExeConfigurationFileMap
            configFileMap.ExeConfigFilename = configFilePath
            Dim config As System.Configuration.Configuration
            config = ConfigurationManager.OpenMappedExeConfiguration(configFileMap, ConfigurationUserLevel.None)
            ' Try to read AppSettings["LogDirectory"]
            Dim obj = config.AppSettings.Settings("LogDirectory")
            If IsNothing(obj) Then
                Console.WriteLine("config.AppSettings.Settings(""LogDirectory""): NULL")
            Else
                Console.WriteLine("config.AppSettings.Settings(""LogDirectory""): " & obj.Value)
            End If
            ' Dump all Sections
            Dim ct As Integer = 0
            For Each section As ConfigurationSection In config.Sections
                Dim xml = section.SectionInformation.GetRawXml
                If Not xml = Nothing Then
                    Console.WriteLine(section.SectionInformation.Name & ": " & xml)
                    ct = ct + 1
                End If
            Next
            Console.WriteLine(ct & " sections were found.")
        Catch ex As Exception
            System.Console.WriteLine("ERROR:   " & ex.Message)
        End Try
    End Sub
End Module

test.exe.config

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <connectionStrings>
    <add name="conn" connectionString="Data Source=DBASE;Initial Catalog=NGDevl;Integrated Security=True" providerName="System.Data.SqlClient"/>
  </connectionStrings>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
  </startup>
  <appSettings>
    <add key="LogDirectory" value="C:CTemp"/>
  </appSettings>
</configuration>

• 项目> test.exe.config：我将"复制到输出"属性设置为"如果更新"

在

'希望有帮助...