AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS 24.07

Browse Source
This commit is contained in:
SchreiberM
2015-07-24 10:45:41 +02:00
parent 8097628f66
commit d23e44524b
21 changed files with 5448 additions and 3380 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Global_Indexer/ModuleMySettings.vb
View File

@@ -10,6 +10,7 @@ Module ModuleMySettings
Public Preview As Boolean = True
Public UniversalViewer As String
Public FW_started As Boolean = False
Public FWSCAN_started As Boolean = False
Public Delete_OriginFile As Boolean = False
Public Function LoadMyConfig()
@@ -57,6 +58,8 @@ Module ModuleMySettings
UniversalViewer = Row.Item("Value")
Case "FW_started"
FW_started = CBool(Row.Item("Value"))
Case "FWSCAN_started"
FWSCAN_started = CBool(Row.Item("Value"))
Case "Delete_OriginFile"
Delete_OriginFile = CBool(Row.Item("Value"))
End Select
@@ -78,6 +81,13 @@ Module ModuleMySettings
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
If rowresult.Contains("FWSCAN_started") = False Then
Dim newRow As DataRow = DT.NewRow()
newRow("ConfigName") = "FWSCAN_started"
newRow("Value") = "False"
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
Catch ex As Exception
MsgBox("Error in MySettings-LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
@@ -134,6 +144,10 @@ Module ModuleMySettings
newRow4("ConfigName") = "FW_started"
newRow4("Value") = "False"
table.Rows.Add(newRow4)
Dim newRow5 As DataRow = table.NewRow()
newRow5("ConfigName") = "FWSCAN_started"
newRow5("Value") = "False"
table.Rows.Add(newRow5)
table.AcceptChanges()
Return table
Catch ex As Exception