彻底解决 user.config 文件损坏

症状见 发生 Configuration system failed to initialize 错误的一个特例

解决的办法，在去读 user.settings 之前捕获错误，比如 Main() 里面先调用 UserConfigFixer.AutoCheck()

Imports System.Configuration
Imports System.IO

Public Class UserConfigFixer
    Public Shared Sub AutoCheck()
        Try
            'My.Settings.Reload()
            Dim config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal)
            Dim fullFileName = config.FilePath
        Catch ex As ConfigurationErrorsException
            fixCorruptUserConfigFile(ex)
        End Try
    End Sub

    Private Shared Sub fixCorruptUserConfigFile(ByVal ex As ConfigurationErrorsException)
        Dim filename = ex.Filename

        If MessageBox.Show("检测到您的用户设置文件已损坏，这可能是由于冲突或不正确的退出造成的，需要重置用户设置才能继续。" & vbNewLine & vbNewLine _
                           & "单击【是】将自动重置用户设置并继续。” & vbNewLine & vbNewLine _
                           & “如果要尝试手动修复，请单击【否】",
                           "损坏的用户设置",
                            MessageBoxButtons.YesNo, MessageBoxIcon.Error) = DialogResult.Yes Then
            File.Delete(filename)
            'you could optionally restart the app instead
            Application.Restart()
            'avoid the inevitable crash
        End If
        Environment.Exit(-1)
    End Sub
End Class

 

参考文献

Handling Corrupt "user.config" Settings - CodeProject