Enumerator 개체와 for 문장을 사용하여 컬렉션을 반복 실행하는 방법을 보여준다.

<SCRIPT language=JScript>
function colFoldersTest(folderPath){
  var fso,foldersCol,enumObj,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  foldersCol=fso.GetFolder(folderPath);
  str+=folderPath+' 폴더의 내역<BR>';
  enumObj=new Enumerator(foldersCol.SubFolders);
  str+='총 '+foldersCol.SubFolders.Count+' Folders :<BR>';
  for (; !enumObj.atEnd();enumObj.moveNext()){
    str+=enumObj.item()+'<BR>';
  }
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showjs.innerHTML=colFoldersTest('C:\\JsTest')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=collection>Folders</SPAN> 컬렉션 예제</DIV>

VBScript로 Folders 컬렉션을 가져와서 For Each...Next 문장을 사용하여 동일한 내용을 보여준다.

<SCRIPT language=VBScript>
Function colFoldersTestvb(folderPath)
  Dim fso,foldersCol,folderObj,enumObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set foldersCol=fso.GetFolder(folderPath)
  str=folderPath&" 폴더의 내역<BR>"

  Set enumObj=foldersCol.SubFolders
  str=str&"총 "&foldersCol.SubFolders.Count&" Folders :<BR>"
  For Each folderObj in enumObj
    str=str & folderObj.Path & "<BR>"
  Next
  colFoldersTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showvb.innerHTML=colFoldersTestvb('C:\\JsTest')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=collection>Folders</SPAN> 컬렉션 예제</DIV>