changed get files to enumerate, for 69024 file across 1163 folders and 2139 sub folders on our network drive - very slow.
directory.getfiles took an hour, enumerate less than 10 minutes
here is the code
Dim fileentry7 As FileInfo
' Dim fileentry8 As FileInfo() = di3A.EnumerateFiles("*", SearchOption.AllDirectories)
Dim files = di3A.EnumerateFiles("*", SearchOption.AllDirectories)
For Each fileentry7 In files
PrintLine(2, fileentry7.FullName & vbTab & fileentry7.Name & vbTab & fileentry7.Length)
Next