MS24112015

Global_Indexer/frmIndexFileList.vb

@@ -20,10 +20,27 @@
     End Sub
 
     Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
-        For Each item In CheckedListBoxControl1.CheckedItems
-            Dim row As DataRowView = CType(item, DataRowView)
-            ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True)
-        Next
+        Try
+            For Each item In CheckedListBoxControl1.CheckedItems
+                Dim row As DataRowView = CType(item, DataRowView)
+                Dim _file = row.Item(1)
+                Dim handletype As String = row.Item("HANDLE_TYPE")
+
+                If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then
+                    Try
+                        IO.File.Delete(_file)
+                    Catch ex As Exception
+
+                    End Try
+
+                End If
+                'System.IO.File.Delete(filestring)
+                ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True)
+            Next
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+       
         Me.Close()
     End Sub