<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>';
  }

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

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

<SCRIPT language=VBScript>
Function MoveFileTestvb(filePath,destination)
  Dim fso,targetFile
  str=""
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(folderPath) 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

  Set fileObj=fso.GetFile(filePath)
  fileObj.Move(destination)
  str=str&"원본 "&filePath&" 파일을 "&destination&"으로 이동하였다."

  MoveFileTestvb=str
End Function
</SCRIPT>

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

<SCRIPT language=JScript>
function MoveFolderTest(folderPath,destination){
  str='';
  var fso=new ActiveXObject('Scripting.FileSystemObject');
  if (!fso.FolderExists(folderPath)){
    fso.CreateFolder(folderPath);
    str+='원본 폴더가없어 '+folderPath+' 폴더를 생성하였다.<BR>';
  }
  if (fso.FolderExists(destination)){
    fso.DeleteFolder(destination);
    str+='복사 폴더가 있어 '+destination+' 폴더를 삭제하였다.<BR>';
  }

  folderObj=fso.GetFolder(folderPath);
  folderObj.Move(destination);
  str+='원본 '+folderPath+' 폴더를 '+destination+'으로 이동하였다.';
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showjs.innerHTML=
  MoveFolderTest('C:\\JsTest\\MoveTest','C:\\JsTest\\MoveTarget')">
  <SPAN class=ie>JScript</SPAN> Folder <SPAN class=method>Move</SPAN> 메서드 예제</DIV>

<SCRIPT language=VBScript>
Function MoveTestvb(folderPath,destination)
  Dim fso,targetFile
  str=""
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(folderPath) Then
    fso.CreateFolder(folderPath)
    str=str&"원본 폴더가 없어 "&folderPath&" 폴더를 생성하였다.<BR>"
  End If

  If fso.FolderExists(destination) Then
    fso.DeleteFolder(destination)
    str=str&"복사 폴더가 있어 "&destination&" 폴더를 삭제하였다.<BR>"
  End If

  Set folderObj=fso.GetFolder(folderPath)
  folderObj.Move(destination)
  str=str&"원본 "&folderPath&" 폴더를 "&destination&"으로 이동하였다."
  MoveTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=
  MoveTestvb('C:\\JsTest\\MoveTest','C:\\JsTest\\MoveTarget')">
  <SPAN class=ie>VBScript</SPAN> Folder <SPAN class=method>Move</SPAN> 메서드 예제</DIV>