MS_04.01

app/DD-Record-Organiser/frmScanFiles.vb

@@ -21,8 +21,7 @@ Public Class frmScanFiles
     End Sub
     Sub Load_Files()
         Try
-            Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", USER_USERNAME)
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
+            Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files
             If Not IsNothing(DT) Then
                 CURRENT_SCAN_TABLE = DT
                 ListView1.Items.Clear()
@@ -112,8 +111,6 @@ Public Class frmScanFiles
         If MouseIsDown Then
             'Initiate dragging. 
             ListView1.DoDragDrop(DragID, DragDropEffects.Copy)
-            Timer1.Start()
-            'Console.WriteLine("Dragging")
         End If
         MouseIsDown = False
     End Sub
@@ -161,12 +158,17 @@ Public Class frmScanFiles
 
     Private Sub frmScanFiles_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         Me.BringToFront()
+        Timer1.Start()
     End Sub
 
     Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged
         My.Settings.Save()
     End Sub
     Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
-        Load_Files()
+        Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files
+        If DT.Rows.Count <> ListView1.Items.Count Then
+            Load_Files()
+        End If
+
     End Sub
 End Class