<SCRIPT language=JScript>
function CloseTest(filePath){
  var fso;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  fileObj=fso.CreateTextFile(filePath,true);
  fileObj.WriteLine('테스트이다.');
  fileObj.Close();
  return('생성 파일="'+filePath+'"');
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function CloseTestvb(filePath)
  Dim fso,fileObj
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set fileObj=fso.CreateTextFile(filePath,True)
  fileObj.WriteLine("테스트이다.")
  fileObj.Close
  CloseTestvb="생성 파일='"&filePath&"'"
End Function
</SCRIPT>

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