You can use a For Each loop once you provide the root folder.
Example:
Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
Get the folder object
Set objFolder = objFSO.GetFolder("C:\Temp")
loops through each folder in the directory
For Each objSubFolder In objFolder.subfolders
**Handle Code Goes Here**
Next objSubFolder
So now you have each subfolder of the root folder you provided (C:\Temp) in this case, you can do something like this to get information:
String1 = objSubFolder.Path
String 2 = objSubFolder.Name