Dim NonModFiles() As String = NonModFilesList.ToArray
Dim extList() As String = {"*.log*", "*.errors*"}
Dim SearchStrArray(NonModFiles.Length + extList.Length - 1) As String
Array.Copy(NonModFiles, SearchStrArray, NonModFiles.Length)
Array.Copy(extList, 0, SearchStrArray, NonModFiles.Length, extList.Length)
Dim fileList As New Generic.List(Of io.FileInfo)
Dim SearchString As String
For Each SearchString In SearchStrArray
'Returns only the filenames based on the directory that is selected
Dim fi_Info() As io.fileinfo = dir_Info.GetFiles(SearchString)
For i As Integer = 0 To fi_Info.length-1
Dim FileFound As IO.FileInfo = fi_Info(i)
' If io.file.Exists(FileFound.FullName) Then
Try
' msgbox("Deleting: " & FileFound.FullName)
io.file.Delete(FileFound.FullName)
Catch exe As Exception
End Try
' End If
Next i
Next