<SCRIPT language=JScript>
function GetFileTest(filePath){
  var fso,fileObj,str;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (!fso.FileExists(filePath)){
    fileObj=fso.OpenTextFile(filePath,2,true);
    fileObj.WriteLine('예제를 위한 파일이다.');
    fileObj.Close();
  }
  fileObj=fso.GetFile(filePath);
  str=fileObj.Path.toUpperCase()+'<BR>';
  str+='만든 날짜: '+fileObj.DateCreated+'<BR>';
  str+='마지막으로 액세스한 날짜: '+fileObj.DateLastAccessed+'<BR>';
  str+='마지막으로 수정한 날짜: '+fileObj.DateLastModified
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function GetFileTestvb(filePath)
  Dim fso,fileObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FileExists(filePath) Then
    Set fileObj=fso.OpenTextFile(filePath,2,True)
    fileObj.Write "예제를 위한 파일이다."
    fileObj.Close
  End If
  Set fileObj=fso.GetFile(filePath)
  str=fileObj.Path&"<BR>"
  str=str&"만든 날짜: "&fileObj.DateCreated&"<BR>"
  str=str&"마지막으로 액세스한 날짜:  "&fileObj.DateLastAccessed&"<BR>"
  str=str&"마지막으로 수정한 날짜: "&fileObj.DateLastModified
  GetFileTestvb=str
End Function
</SCRIPT>

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