<SCRIPT language=JScript>
function AddTest(folderPath,newFolder){
  var fso,folderObj,folderCol,newFolder,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  folderObj=fso.GetFolder(folderPath);
  folderCol=folderObj.SubFolders;
  if (newFolder=='') newFolder='C:\\JsTest\\','newFolder';
  if (fso.FolderExists(folderPath+newFolder)) fso.DeleteFolder(folderPath+newFolder);
  newObj=folderCol.Add(newFolder);
  str+='"'+folderPath+'"에 새로운 폴더 "'+newObj+'"가 추가되었다.';
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showjs.innerHTML=AddTest('C:\\JsTest\\','newFolder')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=method>Add</SPAN> 메서드 예제</DIV>

<SCRIPT language=VBScript>
Function AddTestvb(folderPath,newFolder)
  Dim fso,folderObj,folderCol,newObj
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set folderObj=fso.GetFolder(folderPath)
  Set folderCol=folderObj.SubFolders
  If newFolder="" Then
    newFolder="newFolder"
  End If
  If fso.FolderExists(folderPath&newFolder) Then
    fso.DeleteFolder(folderPath&newFolder)
  End If
  Set newObj=folderCol.Add(newFolder)
  AddTestvb="'"&folderPath&"'에 새로운 폴더 '"&newObj&"'가 추가되었다."
End Function
</SCRIPT>

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