<SCRIPT language=JScript>
function OpenTextFileTest(filePath){
  var fso,fileObj,ForAppending;
  ForAppending=8;
  var fso=new ActiveXObject('Scripting.FileSystemObject');
  fileObj=fso.OpenTextFile(filePath,ForAppending,false);
  fileObj.WriteLine('테스트 추가이다.');
  fileObj.Close();
  str='"'+filePath+'"에 추가되었다.';
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function OpenTextFileTestvb(filePath)
  Const ForReading=1,ForWriting=2,ForAppending=8   Dim fso,fileObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set fileObj=fso.OpenTextFile(filePath,ForAppending,True)
  fileObj.Write "테스트 추가이다."
  fileObj.Close
  str="'"&filePath&"'에 추가되었다."
  OpenTextFileTestvb=str
End Function
</SCRIPT>

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