MS07062016

app/DD-Record-Organiser/frmMain.vb

@@ -13,10 +13,21 @@ Public Class frmMain
 
     Public Shared Sub RUN_TIMER()
         Try
-            If TIMER_SCAN.Enabled = False Then
+            If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" Then
+                If System.IO.Directory.Exists(CURRENT_SCAN_FOLDERWATCH) = False Then
+                    ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
+                    Exit Sub
+                End If
                 TIMER_SCAN.Interval = 10000
                 TIMER_SCAN.Enabled = True
                 AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler
+            Else
+                If TIMER_SCAN.Enabled = True And CURRENT_SCAN_FOLDERWATCH <> "" Then
+                    TIMER_SCAN.Enabled = False
+                    RUN_TIMER()
+                Else
+                    TIMER_SCAN.Enabled = False
+                End If
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in RUN_TIMER:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -593,7 +604,7 @@ Public Class frmMain
             TimerTasks.Enabled = False
             TimerTasks.Stop()
         End If
-
+        RUN_TIMER()
 
     End Sub
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem3.ItemClick