oFSO = CREATEOBJ('Scripting.FileSystemObject') oFolder=oFSO.GetFolder('C:\MyTopFolder') IF oFolder.SubFolders.Count > 0 FOR EACH oSubFolder IN oFolder.SubFolders WITH oSubFolder ? .Name,.Path,.Files.Count,.SubFolders.Count && each oSubFolder is a Folder Object ENDWITH ENDFOR ELSE ? 'There are no subfolders!' ENDIF