Sub LoadFolders(fldrs As List)
TableView1.Items.Clear
For i = 0 To fldrs.Size-1
Dim fdir As String
fdir = fldrs.Get(i)
LogDebug(fdir)
Dim flist As List
flist.Initialize2(File.ListFiles(fdir))
For f = 0 To flist.Size -1
Dim flines As List
flines.Initialize2(Regex.Split("\x0D\x0A", File.ReadString(fdir, flist.Get(f))))
For j = 0 To flines.Size -1
Dim tabbed() As Object
tabbed = Regex.Split("\t", flines.Get(j))
If tabbed.Length = 4 Then
Dim s As String
s = tabbed(3)
If s.IndexOf("\r") > -1 Then
s = s.Replace("\r", "\r\n")
tabbed(3) = s
End If
TableView1.Items.Add(tabbed)
End If
Next
Next
Next
End Sub