<SCRIPT language=JScript>
function DeleteFileTest(filePath){
  var fso,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (!fso.FileExists(filePath)){
    fileObj=fso.CreateTextFile(filePath,true);
    fileObj.WriteLine('테스트이다.');
    fileObj.Close();
    str+='삭제 예제를 위한 파일 "'+filePath+'"가 생성되었다.<BR>';
  }
  fso.DeleteFile(filePath);
  str+='삭제 예제를 위한 파일 "'+filePath+'"가 삭제되었다.<BR>';
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function DeleteFileTestvb(filePath)
  Dim fso,fileObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FileExists(filePath) Then
    Set fileObj=fso.CreateTextFile(filePath,True)
    fileObj.WriteLine "테스트이다."
    fileObj.Close
    str="삭제 예제를 위한 파일 '"&filePath&"'가 생성되었다.<BR>"
  End If
  fso.DeleteFile(filePath)
  str=str&"삭제 예제를 위한 파일 '"&filePath&"'가 삭제되었다.<BR>"
  DeleteFileTestvb=str
End Function
</SCRIPT>

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