How to store subfolder names in an array for later comparison -VBScript-

The attached vbscript allows me to echo the base names of the top-level subfolders in the parent directory C:\Temp. I need to store them as elements of an array for comparison with a similar array. I have another script that I think will allow me to do the latter. How can I store the base names in an array?

'Enumerates all top-level folders by base name only, where the parent folder is C:\Temp

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

strFolderName = "C:\Temp"


Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
        & "Where AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent")

For Each objFolder in colSubfolders
	strName = objFolder.name
	arrNames = Split(strName, "\")
	intIndex = Ubound(arrNames)

	Wscript.Echo arrNames(intIndex)

Select all Open in new window