Populating a User Form Text Box with Array Contents

[TheShaunMichael]

Hi All,

Need to amend the following code so that 1) my array items are separated by commas and 2) they populate a user form text box titled "tbDocumentName." Thank you!

Shaun

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count <> 0 Then
            xDirect$ = .SelectedItems(1) & "\"
            xFname$ = Dir(xDirect$)
            ReDim FileList(0)
            i = 0
            Do While xFname$ <> ""
                xFname$ = Dir
                FileList(i) = xFname$
                i = i + 1
                ReDim Preserve FileList(i)
            Loop
        End If
    End With
    
    Me.tbDocumentName.Value = FileList

 

[JLGWhiz]

This will fix the array:

From: ReDim Preserve FileList(i)

To: ReDim Preserve FileList(0 To i)

 

[TheShaunMichael]

I'm getting a "type mismatch" error when I try to set the "tbDocumentName" equal to "FileList." Any ideas?

 

[JLGWhiz]

You could try this, but I am not sure that text box will take the List property. Nothing like trying.

Me.tbDocumentName.List = FileList

 

[JLGWhiz]

P.S. Be sure your text box is set to multiline.