_14 was a long time and many mods ago

I have Long NTFS File names enabled, but Explorer won't let me create a really long one to test



In Main() change the marked line to remove the RemovePrefix( ..... ) and see if it works better

Sub Main()
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    Init


    ReDim aryFilesFolders(1 To incFilesFolders)
    For i = LBound(aryPathsToInclude) To UBound(aryPathsToInclude)
        Call getFiles(oFSO.GetFolder(aryPathsToInclude(i)))
    Next
    ReDim Preserve aryFilesFolders(1 To cntFilesFolders)
    
    listData
    
    Application.ScreenUpdating = True
    
    MsgBox "Done"
End Sub