<SCRIPT language=JScript>
function GetFolderTest(folderPath){
  var fso,folderObj,folderCol,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  folderObj=fso.GetFolder(folderPath);
  enumObj=new Enumerator(folderObj.SubFolders);
  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=GetFolderTest('C:\\JsTest')">
  <SPAN class=ie>JScript</SPAN> C:\\JsTest <SPAN class=method>GetFolder</SPAN> 메서드 예제</DIV>
<DIV class=show onClick="id=showjs.innerHTML=GetFolderTest('C:\\My Documents')">
  <SPAN class=ie>JScript</SPAN> C:\\My Documents <SPAN class=method>GetFolder</SPAN> 메서드 예제</DIV>

<SCRIPT language=VBScript>
Function GetFolderTestvb(folderPath)
  Dim fso,folderObj,folderCol
  str=""
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set folderObj=fso.GetFolder(folderPath)
  Set foldersCol=folderObj.SubFolders
  For Each folderObj in foldersCol
    str=str&folderObj.Path&"<BR>"
  Next
  GetFolderTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=GetFolderTestvb('C:\\JsTest')">
  <SPAN class=ie>VBScript</SPAN> C:\\JsTest <SPAN class=method>GetFolder</SPAN> 메서드 예제</DIV>
<DIV class=show onClick="showvb.innerHTML=GetFolderTestvb('C:\\My Documents')">
  <SPAN class=ie>VBScript</SPAN> C:\\My Documents <SPAN class=method>GetFolder</SPAN> 메서드 예제</DIV>