<SCRIPT language=JScript>
function MoveFileTest(filePath,destination){
  str='';
  var fso=new ActiveXObject('Scripting.FileSystemObject');
  if (!fso.FileExists(filePath)){
    fileObj=fso.OpenTextFile(filePath,2,true);
    fileObj.WriteLine('예제를 위한 파일이다.');
    fileObj.Close();
    str+='원본 파일이 없어 '+filePath+' 파일을 생성하였다.<BR>';
  }
  if (!fso.FolderExists(destination)){
    fso.CreateFolder(destination);
    str+='복사 폴더가 없어 '+destination+' 폴더를 생성하였다.<BR>';
  }
  targetFile=destination+'\\'+fso.GetFileName(filePath);
  if (fso.FileExists(targetFile)){
    fso.DeleteFile(targetFile);
    str+='복사 파일이 있어 '+targetFile+' 파일을 삭제하였다.<BR>';
  }

  fso.MoveFile(filePath,destination);
  str+='원본 '+filePath+' 파일을 '+destination+'으로 이동하였다.';
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function MoveFileTestvb(filePath,destination)
  Dim fso,targetFile
  str=""
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FileExists(filePath) Then
    Set fileObj=fso.OpenTextFile(filePath,2,True)
    fileObj.WriteLine "예제를 위한 파일이다."
    fileObj.Close
    str=str&"원본 파일이 없어 "&filePath&" 파일을 생성하였다.<BR>"
  End If

  If Not fso.FolderExists(destination) Then
    fso.CreateFolder(destination)
    str=str&"복사 폴더가 없어 "&destination&" 폴더를 생성하였다.<BR>"
  End If

  targetFile=destination&"\"&fso.GetFileName(filePath)
  If fso.FileExists(targetFile) Then
    fso.DeleteFile(targetFile)
    str=str&"복사 파일이 있어 "&targetFile&" 파일을 삭제하였다.<BR>"
  End If

  fso.MoveFile drivePath,destination
  str=str&"원본 "&filePath&" 파일을 "&destination&"으로 이동하였다."

  MoveFileTestvb=str
End Function
</SCRIPT>

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