This commit is contained in:
SchreiberM
2017-02-17 11:23:22 +01:00
parent 64c99f80b9
commit ca7a26beb9
24 changed files with 21009 additions and 3463 deletions

View File

@@ -11,8 +11,6 @@ Module ModuleMySettings
Public UniversalViewer_Path As String
Public FW_started As Boolean = False
Public FWSCAN_started As Boolean = False
Public Delete_OriginFile As Boolean = False
Public Function LoadMyConfig()
Dim rowresult As String = ""
Try
@@ -61,7 +59,7 @@ Module ModuleMySettings
Case "FWSCAN_started"
FWSCAN_started = CBool(Row.Item("Value"))
Case "Delete_OriginFile"
Delete_OriginFile = CBool(Row.Item("Value"))
CURR_DELETE_ORIGIN = CBool(Row.Item("Value"))
End Select
Next