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

MS V2.7 .Net Logger etc

Browse Source
This commit is contained in:
SchreiberM
2021-06-15 16:28:55 +02:00
parent e2619eb3ad
commit e796ae91cb
109 changed files with 295499 additions and 8793 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organizer/ClassFolderWatcher.vb
View File

@@ -15,7 +15,7 @@ Public Class ClassFolderWatcher
FWSCAN_started = False
'FolderWatch neu instanzieren
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
LOGGER.Warn("FolderWatchScan neu instanziert")
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -36,7 +36,7 @@ Public Class ClassFolderWatcher
End If
If FolderWatcher_SCAN Is Nothing Then
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
LOGGER.Info("FolderWatch Scan Gestartet")
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -48,7 +48,7 @@ Public Class ClassFolderWatcher
' Dim watcher As New FileSystemWatcher()
' watcher.Path = CURRENT_FOLDERWATCH
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
LOGGER.Info("FolderWatch Scan Gestartet")
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -59,7 +59,7 @@ Public Class ClassFolderWatcher
'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False
FWSCAN_started = False
ClassLogger.Add(" >> FolderWatch Scan gestoppt", False)
LOGGER.Info("FolderWatch Scan gestoppt")
SaveMySettingsValue("FWSCAN_started", "False", "ConfigMain")
Return 0
End If
@@ -85,7 +85,7 @@ Public Class ClassFolderWatcher
handleType = "SCAN"
End If
'Die Datei übergeben
If LogErrorsOnly = False Then ClassLogger.Add(" >> OnCreated-File:" & e.FullPath, False)
LOGGER.Debug("OnCreated-File:" & e.FullPath)
If FileExistsinDropTable(CURRENT_FILENAME) = False Then
Insert_USER_File(e.FullPath, handleType)
Else