<SCRIPT language=JScript>
function DriveLetterTest(drivePath){
  var fso,driveObj,str;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  driveObj=fso.GetDrive(fso.GetDriveName(drivePath));
  str='드라이브 '+driveObj.DriveLetter.toUpperCase()+': - ';
  str+=driveObj.VolumeName+'<BR>';
  str+='사용 가능한 공간: '+driveObj.AvailableSpace/1024+'KB<BR>';
  str+='FileSystem: '+driveObj.FileSystem;
  return(str);
}
</SCRIPT>

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

<SCRIPT language=VBScript>
Function DriveLetterTestvb(drivePath)
  Dim fso,driveObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set driveObj=fso.GetDrive(drivePath)
  str="드라이브 "&driveObj.DriveLetter&": - "&driveObj.VolumeName&"<BR>"
  str=str&"사용 가능한 공간: "&FormatNumber(driveObj.FreeSpace/1024,0)&" KB<BR>"
  str=str&"FileSystem:  "&driveObj.FileSystem
  DriveLetterTestvb=str
End Function
</SCRIPT>

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