<SCRIPT language=JScript>
function NameTest(filePath){
  var fso,fileObj,str;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (!fso.FileExists(filePath)){ // 오류 방지를 위하여 원본 화일이 없으면 생성한다.
    fileObj=fso.OpenTextFile(filePath,2,true);
    fileObj.Write(filePath+' 화일');
    fileObj.Close();
  }
  newPath='c:\\JsTest\\NewName.txt';
  if (fso.FileExists(newPath)){ // 오류 방지를 위하여 새로 지정할 화일이 있으면 삭제한다.
    newObj=fso.GetFile(newPath);
    newObj.Delete();
  }
  fileObj=fso.GetFile(filePath)
  str='fileObj.Name='+fileObj.Name+'<BR>';
  oldName=fileObj.Name;
  folderObj=fso.GetFolder(fileObj.ParentFolder);
  str+='folderObj.Name='+folderObj.Name+'<BR>';
  fileObj.Name='NewName.txt';
  str+=oldName+'가 '+fileObj.Name+'으로 변경되었다.<BR>';
  str+='fileObj.Name='+fileObj.Name+'<BR><BR>';

  str+='fileObj.Attributes='+fileObj.attributes+'<BR>';
  if (fileObj.attributes&&32){
    fileObj.attributes=fileObj.attributes-32;
    str+='Archive 비트를 지웠다.';
  } else {
    fileObj.attributes=fileObj.attributes+32;
    str+='Archive 비트를 설정했다.';
  }
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showjs.innerHTML=NameTest('C:\\JsTest\\expSample.txt')">
 <SPAN class=ie>JScript</SPAN> <SPAN class=property>Name</SPAN> 속성 예제</DIV>

<SCRIPT language=VBScript>
Function NameTestvb(filePath)
  Dim fso,fileObj,newPath,newObj
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FileExists(filePath) Then ' 오류 방지를 위하여 원본 화일이 없으면 생성한다.
    Set fileObj=fso.OpenTextFile(filePath,2,true)
    fileObj.Write filePath&" 화일"
    fileObj.Close
  End If
  newPath="c:\JsTest\NewName.txt"
  If fso.FileExists(newPath) Then ' 오류 방지를 위하여 새로 지정할 화일이 있으면 삭제한다.
    Set newObj=fso.GetFile(newPath)
    newObj.Delete
  End If
  Set fileObj=fso.GetFile(filePath)
  Set folderObj=fso.GetFolder(fileObj.ParentFolder)
  str="fileObj.Name="&fileObj.Name&"<BR>"
  oldName=fileObj.Name
  str=str&"folderObj.Name="&folderObj.Name&"<BR>"
  fileObj.Name="NewName.txt"
  str=str&oldName&"가 "&fileObj.Name&"으로 변경되었다.<BR>"
  str=str&"fileObj.Name="&fileObj.Name&"<BR><BR>"

  str=str&"fileObj.Attributes="&fileObj.attributes&"<BR>"
  if fileObj.attributes and 32 Then
    fileObj.attributes=fileObj.attributes-32
    str=str&"Archive 비트를 지웠다."
  Else
    fileObj.attributes=fileObj.attributes+32
    str=str&"Archive 비트를 설정했다."
  End If
  NameTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showvb.innerHTML=NameTestvb('C:\\JsTest\\expSample.txt')">
 <SPAN class=ie>VBScript</SPAN> <SPAN class=property>Name</SPAN> 속성 예제</DIV>