Dim rules As NLog.Config.LoggingRuleCollection = NLog.LogManager.Configuration.LoggingRules
For Each Rule As NLog.Config.LoggingRule In rules
If Rule.NameMatches("DebugLogger") Then
Dim a As NLog.Targets.FileTarget
a = Rule.Targets(0)
a.FileName = "a.txt"
'Rule.DisableLoggingForLevel(NLog.LogLevel.Debug)
'Rule.EnableLoggingForLevel(NLog.LogLevel.Off)
'Rule.EnableLoggingForLevel(NLog.LogLevel.Debug)
End If
Next
NLog.LogManager.ReconfigExistingLoggers()