<SCRIPT language=JScript>
function CopyTest(filePath,destination){
  var fso,fileObj,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  fileObj=fso.CreateTextFile(filePath,true);
  fileObj.WriteLine('테스트이다.');
  fileObj.Close();
  fileObj=fso.GetFile(filePath);
  fileObj.Copy(destination);
  str+='생성된 파일 "'+filePath+'"가<BR>"'+destination+'"으로 복사되었다.<BR><BR>';

  folderObj=fso.GetFolder('c:\\JsTest\\test');
  newPath='c:\\JsTest\\CopyTest';
  if (!fso.FolderExists(newPath)) fso.CreateFolder(newPath);
  folderObj.Copy(newPath,true);
  str+='폴더 "'+folderObj+'"가 "'+newPath+'"으로 복사되었다.';
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function CopyTestvb(filePath,destination)
  Dim fso,fileObj,folderObj,newPath
  str=""
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set fileObj=fso.CreateTextFile(filePath,True)
  fileObj.WriteLine("테스트이다.")
  fileObj.Close
  Set fileObj=fso.GetFile(filePath)
  fileObj.Copy(destination)
  str=str&"생성된 파일='"&filePath&"'가<BR>'"&destination&"'로 복사되었다.<BR><BR>"

  Set folderObj=fso.GetFolder("c:\JsTest\test")
  newPath="c:\\JsTest\\CopyTest"
  If Not fso.FolderExists(newPath) Then
    fso.CreateFolder(newPath)
  End If
  folderObj.Copy(newPath)
  str=str&"폴더 '"&folderObj&"'가 '"&newPath&"'으로 복사되었다."
  CopyTestvb=str
End Function
</SCRIPT>

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