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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-18 16:08:05 +02:00
parent ca7a26beb9
commit 701cce5dff
9 changed files with 137 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Global_Indexer/frmConfig_Basic.vb
View File

@@ -253,15 +253,29 @@ Public Class frmConfig_Basic
End Sub
Sub CheckFolder(mypath As String, FOLDER_TYPE As String)
Try
If mypath = "" Then
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", True)
If FOLDER_TYPE = "SCAN" Then
CURRENT_SCAN_FOLDERWATCH = ""
SaveConfigValue("FWSCAN_started", "False")
FWSCAN_started = False
Else
FW_started = False
SaveConfigValue("FW_started", "False")
CURRENT_FOLDERWATCH = ""
End If
Exit Sub
End If
Try
If (Not System.IO.Directory.Exists(mypath)) Then
System.IO.Directory.CreateDirectory(mypath)
End If
Catch ex As Exception
ClassLogger.Add(" >> Unexpected error inm Erstellen des Folderwatchordners: " & mypath, False)
ClassLogger.Add(" >> Unexpected error in CheckFolder: " & mypath, False)
ClassLogger.Add(" >> " & ex.Message, False)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Unexpected error inm Erstellen des Folderwatchordners: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected error in ECheckFolder: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Else
MsgBox("Error in creating Hotfolder: " & mypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If