massValidator
This commit is contained in:
@@ -19,6 +19,7 @@ Public Class frmKonfig
|
||||
End Sub
|
||||
Private Sub frmKonfig_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
Try
|
||||
|
||||
If VIEWER_ALL = "uviewer" Then
|
||||
rbuviewer.Checked = True
|
||||
Else
|
||||
@@ -377,4 +378,26 @@ Public Class frmKonfig
|
||||
Private Sub RadioAlternativeConnection_CheckedChanged(sender As Object, e As EventArgs) Handles RadioAlternativeConnection.CheckedChanged
|
||||
txtActualConnection.Text = MaskConnectionStringPassword(CONFIG.Config.ConnectionStringTest)
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
Dim di As New IO.DirectoryInfo(Application.UserAppDataPath())
|
||||
Dim diar1 As IO.FileInfo() = di.GetFiles()
|
||||
Dim dra As IO.FileInfo
|
||||
|
||||
'list the names of all files in the specified directory
|
||||
For Each dra In diar1
|
||||
If dra.Name <> "UserConfig.xml" Then
|
||||
Try
|
||||
System.IO.File.Delete(dra.FullName)
|
||||
LOGGER.Info($"ConfigFile {dra.FullName} has been deleted!")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
MsgBox("The UserConfiguration has been set back to default!", MsgBoxStyle.OkOnly)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user