Scripting Runtime Library(FileSystemObject)

지정한 경로에서 드라이브 이름을 포함하는 문자열을 반환한다.

인수/파라메터
object
필수적인 요소이며, FileSystemObject의 이름이다.
drivePath
필수적인 요소이며, 드라이브 이름을 반환할 구성 요소의 경로이다.
반환값

반환값 sDrive은 지정된 경로의 드라이브 이름을 포함하는 문자열이다.

설명

지정한 경로에서 드라이브 이름을 포함하는 문자열을 반환한다.

드라이브를 확인할 수 없으면 GetDriveName 메서드는 빈 문자열("")을 반환한다.

참고: GetDriveName 메서드는 제공된 drivePath 문자열에만 사용한다.
경로를 결정하지도 않고 지정한 경로가 있는지도 검사하지 않는다.

GetDriveName 메서드 예제

결과 표시창
JScript 'C:\' GetDriveName 메서드 예제
<SCRIPT language=JScript>
function GetDriveNameTest(drivePath){
  var fso;
  var str='<TABLE width=100% border=1>';
  str+='<TR><TH>Name</TH><TH>Letter</TH><TH>내역</TH><TH>경로</TH></TR>';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  enumObj=new Enumerator(fso.Drives);
  for (; !enumObj.atEnd(); enumObj.moveNext()){
    enum1=enumObj.item();
    str+='<TR><TD align=center>'+fso.GetDriveName(enum1)+'</TD>';
    str+='<TD align=center>'+enum1.DriveLetter+'</TD>';
    if (enum1.DriveType==3) driveObj=enum1.ShareName;
    else if (enum1.IsReady) driveObj=enum1.VolumeName;
    else driveObj='[드라이브가 준비되지 않았다.]';
    str+='<TD>'+driveObj+'</TD>';
    str+='<TD align=center>'+enum1.Path+'</TD></TR>';
  }
  str+='</TABLE>';

  str+='fso.GetDrive(fso.GetDriveName(drivePath))='+fso.GetDrive(fso.GetDriveName(drivePath));
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showjs.innerHTML=GetDriveNameTest('C:\\')">
  <SPAN class=ie>JScript</SPAN> 'C:\' <SPAN class=method>GetDriveName</SPAN> 메서드 예제</DIV>
결과 표시창
VBScript GetDriveName 메서드 예제
<SCRIPT language=VBScript>
Function GetDriveNameTestvb(drivePath)
  Dim fso,str
  str="<TABLE width=100% border=1>"
  str=str&"<TR><TH>Name</TH><TH>Letter</TH><TH>내역</TH><TH>경로</TH></TR>"
  Set fso=CreateObject("Scripting.FileSystemObject")

  Set drivesCol=fso.Drives
  For Each driveObj in drivesCol
    str=str&"<TR><TD align=center>"&fso.GetDriveName(driveObj)&"</TD>"
    str=str&"<TD align=center>"&driveObj.DriveLetter&"</TD>"
    driveVar=""
    If driveObj.DriveType=3 Then
      driveVar=driveObj.ShareName
    Elseif driveObj.IsReady Then
      driveVar=driveObj.VolumeName
    Else
      driveVar="[드라이브가 준비되지 않았다.]"
    End If
    str=str&"<TD>"&driveVar&"</TD>"
    str=str&"<TD align=center>"&driveObj.Path&"</TD></TR>"
  Next
  str=str&"</TABLE>"

  str=str&"fso.GetDrive(fso.GetDriveName(drivePath))="&fso.GetDrive(fso.GetDriveName(drivePath))
  GetDriveNameTestvb=str
End Function
</SCRIPT>

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