<SCRIPT language=JScript>
function DeleteTest(filePath){
  var fso,fileObj,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (fso.FileExists(filePath)) fso.DeleteFile(filePath);
  fileObj=fso.CreateTextFile(filePath,true);
  fileObj.WriteLine('테스트이다.');
  fileObj.Close();
  str+='파일 "'+filePath+'"가 생성되었다.<BR>';
  fileObj=fso.GetFile(filePath);
  fileObj.Delete();
  str+='파일 "'+filePath+'"가 삭제되었다.<BR><BR>';

  tempPath='C:\\JsTest\\DeletFolder';
  if (fso.FolderExists(tempPath)) fso.DeleteFolder(tempPath);
  fso.CreateFolder(tempPath);
  tempObj=fso.GetFolder(tempPath);
  str+='폴더 "'+tempPath+'"가 생성되었다.<BR>';
  tempObj.Delete();
  str+='폴더 "'+tempPath+'"가 삭제되었다.';
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function DeleteTestvb(filePath)
  Dim fso,fileObj,tempPath,tempObj
  Set fso=CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(filePath) Then
    fso.DeleteFile(filePath)
  End If
  Set fileObj=fso.CreateTextFile(filePath,True)
  fileObj.WriteLine "테스트이다."
  fileObj.Close
  str="파일 '"&filePath&"'가 생성되었다.<BR>"
  Set fileObj=fso.GetFile(filePath)
  fileObj.Delete
  str=str&"파일 '"&filePath&"'가 삭제되었다.<BR><BR>"

  tempPath="C:\\JsTest\DeletFolder"
  If fso.FolderExists(tempPath) Then
    fso.DeleteFolder(tempPath)
  End If
  fso.CreateFolder(tempPath)
  str=str&"폴더 '"&tempPath&"'가 생성되었다.<BR>"
  Set tempObj=fso.GetFolder(tempPath)
  tempObj.Delete
  str=str&"폴더 '"&tempPath&"'가 삭제되었다.<BR>"
  DeleteTestvb=str
End Function
</SCRIPT>

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