<SCRIPT language=JScript>
function ReadTest(filePath){
  var fso,fileObj,str='';
  var ForReading=1,ForWriting=2;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (fso.FileExists(filePath)) fso.DeleteFile(filePath);
  fileObj=fso.OpenTextFile(filePath,ForWriting,true);
  fileObj.Write('예제를 위한 파일이다.');
  fileObj.Write('1234567890987654321');
  fileObj.WriteLine('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
  fileObj.Close();
  str+='예제를 위한  '+filePath+' 파일을 생성하였다.<BR><BR>';
  fileObj=fso.OpenTextFile(filePath,ForReading);

  str+='fileObj.Read(10)='+fileObj.Read(10)+'<BR>';
  str+='fileObj.Read(15)='+fileObj.Read(15)+'<BR>';
  str+='fileObj.Read(5)='+fileObj.Read(5)+'<BR>';
  str+='fileObj.ReadAll='+fileObj.ReadAll()+'<BR>';
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function ReadTestvb(filePath)
  Const ForReading=1,ForWriting=2,ForAppending=8
  Dim fso,fileObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(filePath) Then
    fso.DeleteFile(filePath)
  End If

  Set fileObj=fso.OpenTextFile(filePath,ForWriting,True)
  fileObj.Write "예제를 위한 파일이다."
  fileObj.Write "1234567890987654321"
  fileObj.WriteLine "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  fileObj.Close
  str=str&"예제를 위한  "&filePath&" 파일을 생성하였다.<BR><BR>"

  Set fileObj=fso.OpenTextFile(filePath,ForReading)
  str=str&"fileObj.Read(10)="&fileObj.Read(10)&"<BR>"
  str=str&"fileObj.Read(15)="&fileObj.Read(15)&"<BR>"
  str=str&"fileObj.Read(5)="&fileObj.Read(5)&"<BR>"
  str=str&"fileObj.ReadAll="&fileObj.ReadAll()&"<BR>"
  ReadTestvb=str
End Function
</SCRIPT>

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