<SCRIPT language=JScript>
function SizeTest(filePath){
  var fso, folderObj,str;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (!fso.FileExists(filePath)){ // 오류 방지를 위하여 화일이 없으면 생성한다.
    fileObj=fso.OpenTextFile(filePath,2,true);
    fileObj.Write(filePath+' 화일');
    fileObj.Close();
  }
  fileObj=fso.GetFile(filePath);
  folderObj=fileObj.ParentFolder
  str=fileObj.Path+'은(는) '+fileObj.size+'바이트 사용한다.<BR>';
  str+=folderObj.Path+'은(는) '+folderObj.size+'바이트 사용한다.<BR>';
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
 function SizeTestvb(filePath)
  Dim fso,folderObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FileExists(filePath) Then ' 오류 방지를 위하여 원본 화일이 없으면 생성한다.
    Set fileObj=fso.OpenTextFile(filePath,2,true)
    fileObj.Write filePath&" 화일"
    fileObj.Close
  End If
  Set fileObj=fso.GetFile(filePath)
  Set folderObj=fileObj.ParentFolder
  str=fileObj.Path&"은(는) "&fileObj.size&"바이트 사용한다.<BR>"
  str=str&folderObj.Path&"은(는) "&folderObj.size&"바이트 사용한다.<BR>"
  SizeTestvb=str
End Function
</SCRIPT>

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