Lists in VBscript return object

Question

I'm writing a vbscript function that looks something like this:

Public Function fnGetXLSFileCount()
Dim fso, src, folder, file, fileList

    Set fileList = CreateObject("System.Collections.ArrayList") 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    src = "\\myserver\myfolder" 
    Set folder = fso.GetFolder(src) 
    For Each file In folder.files 
        If LCase(fso.GetExtensionName(file)) = "xlsx" Then 
            fileList.Add file.name
        End If 
    Next 
    Set fnGetXLSFileCount = fileList

End Function

As you can see I'm creating an ArrayList and then adding all the names of excel files that exist in a specified folder.

I then call this function and use the Set operator to specify that I'm expecting an object to be returned.

Set XLSFileList = fnGetXLSFileCount

When I check the count on the object it seems to be correct. When I try to pull the names out there is nothing there. What am I doing incorrectly here?

For each file in XLSFileList
    name = file.Item(0)
Next

Yes, the () is optional there.

Anton
– Anton

2016-03-30 17:23:00 +00:00
Commented Mar 30, 2016 at 17:23 — Anton
– Anton, Commented Mar 30, 2016 at 17:23

Ansgar Wiechers · Accepted Answer · 2016-03-30 17:17:32Z

1

The For Each loop already enumerates the items of the collection. And since you assign just the names to the collection you simply use the loop variable to get the name:

For Each file In XLSFileList
    name = file
Next

The Item property can be used to directly access a specific item from the collection:

WScript.Echo XLSFileList.Item(0)

answered Mar 30, 2016 at 17:17

Ansgar Wiechers

202k27 gold badges286 silver badges363 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Anton Over a year ago

I feel so stupid. I was just over complicating it. Thank you.

Collectives™ on Stack Overflow

Lists in VBscript return object

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related