[BUG] Empty items after Concat

Describe the bug Using a 1D BetterArras for storing Filepaths from folder with recursion. Each (sub)folder returns its own BetterArray, which is "merged" with BetterArray from parent folder using Concat method.

Result 1D BetterArray contains a lot of empty Items.

To Reproduce Consider function:

Public Function GetFilesArrRecusively(ByVal Folder As Folder) As BetterArray
    Dim File As File
    Dim SubFolder As Folder
    Dim TempArray As BetterArray
    Set TempArray = New BetterArray

    ' Loops trought all files in given folder
    For Each File In Folder.Files
        ' Test for hidden and system files
        Dim IsHidden As Boolean
        Dim IsSystem As Boolean
        Dim Attributes As Long

        Attributes = File.Attributes
        IsHidden = Attributes And 2
        IsSystem = Attributes And 3

        If Not (IsHidden Or IsSystem) Then
            Call TempArray.Push(File.Path)
        End If
    Next File
    ' Now all files in the given folder are in the arr

    ' Go trought all subfolders of the given folder
    For Each SubFolder In Folder.SubFolders
        Dim SubFolderArr As BetterArray
        Set SubFolderArr = New BetterArray
        Set SubFolderArr = GetFilesArrRecusively(SubFolder)

        Dim TempArrClone As BetterArray
        Set TempArrClone = New BetterArray
        Set TempArrClone = TempArray.Clone ' Save state of TempArray before Concat

        ' Appends filepaths from subfolder
        If SubFolderArr.Length > 0 Then
            Call TempArray.Concat(SubFolderArr.Items)
            If TempArray.Includes(Empty) Then
                Debug.Print "EMPTY" '<------ Place breakpoint HERE
            End If
        End If
    Next SubFolder
    Set GetFilesArrRecusively = TempArray
End Function

Expected behavior 1D BetterArray filled with Filepaths (As String). For each file in given folder (except hidden and system files. Screenshots This are BetterArrays going to Concat - Call TempArray.Concat(SubFolderArr.Items) (remember: TempArr = TempArray.Clone)

This is how TempArray looks like after Concat (see Items(40..63))

Operating System:

Win 10 Pro

Host Application:

Excel 2013 (32bit)

Additional context I debugged it step by step from my Concat call (line 36 in my code snippet). And when I stepped on your line 1402 (BetterArray.cls v1.7.3), found that Me.Items has 40 Items BUT This.Items has 64 items - all extra items are Empty.

Senipah / VBA-Better-Array

[BUG] Empty items after Concat #7