KoXo 자바스크립트 - 메서드(method) - MoveFolder(FileSystemObject)

Scripting Runtime Library(FileSystemObject)

하나 이상의 폴더를 기존 위치에서 다른 위치로 옮긴다.

인수/파라메터

object: 필수적인 요소이며, 항상 FileSystemObject의 이름이다.
source: 필수적인 요소이며, 옮길 폴더 경로이다.
source 인수 문자열에는 마지막 경로 구성 요소에만 와일드카드 문자를 사용할 수 있다.
destination: 필수적인 요소이며, 폴더를 옮길 경로이다.
destination 인수에는 와일드카드 문자를 사용할 수 없다.
반환값: 반환값은 없다.

설명

하나 이상의 폴더를 기존 위치에서 다른 위치로 옮긴다.

source에 와일드카드 문자를 사용하거나 destination이 경로 구분 기호(\)로 끝나면 destination은 일치하는 파일을 이동할 기존 폴더(Folder)를 나타낸다.

그렇지 않으면 destination은 만들 대상 폴더의 이름을 나타낸다.

둘 중 어느 경우라도 개별 폴더를 이동할 때 아래 세 가지 중 하나가 일어날 수 있다.

destination이 없으면 폴더를 옮긴다. 일반적인 경우이다.
destination이 기존 파일이면 오류가 발생한다.
destination이 디렉터리이면 오류가 발생한다.

source에 사용한 와일드카드 문자와 일치하는 폴더가 없어도 오류가 발생한다.
MoveFolder 메서드는 첫 번째 오류가 발생하면 그 상태로 중지한다.
오류가 발생하고 나면 이전에 변경된 사항은 되돌릴 수 없다.

참고: 운영 체제가 지원하는 경우에만 이 메서드를 사용하여 볼륨들 간에 파일을 옮길 수 있다.

MoveFolder 메서드 예제

결과 표시창

JScript MoveFolder 메서드 예제

<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.CreateFolder(destination);
    str+='복사 폴더가 없어 '+destination+' 폴더를 생성하였다.<BR>';
  }

  fso.MoveFolder(folderPath,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> <SPAN class=method>MoveFolder</SPAN> 메서드 예제</DIV>

결과 표시창

VBScript MoveFolder 메서드 예제

<SCRIPT language=VBScript>
Function MoveFolderTestvb(folderPath,destination)
  Dim fso
  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

  fso.MoveFolder folderPath,destination
  str=str&"원본 "&folderPath&" 폴더를 "&destination&"으로 이동하였다."

  MoveFolderTestvb=str
End Function
</SCRIPT>

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