<SCRIPT language=JScript>
function IsRootFolderTest(folderPath){
  var fso,folderObj,numb,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (!fso.FolderExists(folderPath)) fso.CreateFolder(folderPath);
  folderObj=fso.GetFolder(folderPath);
  numb=0;
  if (folderObj.IsRootFolder)
    str='지정한 폴더 "'+folderPath+'"가 루트 폴더이다.'
  else{
    str='폴더 "'+ folderPath+'"는 루트 폴더가 아니다.<BR>';
    while (!folderObj.IsRootFolder){
      folderObj=folderObj.ParentFolder;
      numb++;
    }
    str+='지정한 폴더는 루트 폴더로부터 '+numb+'번째 상위에 위치하고 있다.<BR>';
    str+='폴더 "'+ folderObj+'"가 루트 폴더이다.'
  }
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showjs.innerHTML=IsRootFolderTest('C:\\JsTest\\test')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=property>IsRootFolder</SPAN> 속성 예제</DIV>

<SCRIPT language=VBScript>
Function IsRootFolderTestvb(folderPath)
  Dim fso,folderObj,numb,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(folderPath) Then
    fso.CreateFolder(folderPath)
  End If
  Set folderObj=fso.GetFolder(folderPath)
  If folderObj.IsRootFolder Then
    str="지정한 폴더 '"&folderPath&"'는 루트 폴더이다."
  Else
    str="폴더 '"&folderPath&"'는 루트 폴더가 아니다.<BR>"
    Do Until folderObj.IsRootFolder
      Set folderObj=folderObj.ParentFolder
      numb=numb+1
    Loop
    str=str&"지정한 폴더는 루트 폴더로부터 "&numb&" 번째 상위에 위치하고 있다.<BR>"
    str=str&"폴더 '"&folderObj&"'가 루트 폴더이다."
  End If
  IsRootFolderTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=IsRootFolderTestvb('C:\\JsTest\\test')">
  <SPAN class=ie>VBScript</SPAN> <SPAN class=property>IsRootFolder</SPAN> 속성 예제</DIV>