Scripting Runtime Library

GetDrive Method

See Also

Collapse All Expand All DropDown image

Language Filter: All Language Filter: Multiple Language Filter: Visual Basic Language Filter: C# Language Filter: C++ Language Filter: J# Language Filter: JScript

Visual Basic (Declaration)
Visual Basic (Usage)
C#
C++
J#
JScript

Returns a Drive object corresponding to the drive in a specified path.


object.GetDrive (drivespec)

Arguments

Argument	Description
object	Required. Always the name of a FileSystemObject.
drivespec	Required. The drivespec argument can be a drive letter (c), a drive letter with a colon appended (c:), a drive letter with a colon and path separator appended (c:\), or any network share specification (\\computer2\share1).

Remarks

For network shares, a check is made to ensure that the share exists.

An error occurs if drivespec does not conform to one of the accepted forms or does not exist.

To call the GetDrive method on a normal path string, use the following sequence to get a string that is suitable for use as drivespec:

	Copy Code
DriveSpec = GetDriveName(GetAbsolutePathName(Path))

The following example illustrates the use of the GetDrive method.

	Copy Code
// JScript function ShowFreeSpace(drvPath) { var fso, d, s =""; fso = new ActiveXObject("Scripting.FileSystemObject"); d = fso.GetDrive(fso.GetDriveName(drvPath)); s = "Drive " + drvPath.toUpperCase( ) + " - "; s += d.VolumeName + "<br>"; s += "Free Space: " + d.FreeSpace/1024 + " Kbytes"; return(s); } ' VBScript Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Drive " & UCase(drvPath) & " - " s = s & d.VolumeName & "<BR>" s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) s = s & " Kbytes" ShowFreeSpace = s End Function

Copy Code

// JScript
function ShowFreeSpace(drvPath)
{
   var fso, d, s ="";
   fso = new ActiveXObject("Scripting.FileSystemObject");
   d = fso.GetDrive(fso.GetDriveName(drvPath));
   s = "Drive " + drvPath.toUpperCase( ) + " - ";
   s += d.VolumeName + "<br>";
   s += "Free Space: " + d.FreeSpace/1024 + " Kbytes";
   return(s);
}
' VBScript
Function ShowFreeSpace(drvPath)
   Dim fso, d, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(drvPath))
   s = "Drive " & UCase(drvPath) & " - " 
   s = s & d.VolumeName   & "<BR>"
   s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
   s = s & " Kbytes"
   ShowFreeSpace = s
End Function

Applies To:

FileSystemObject Object

Arguments

Remarks

Applies To:

See Also

Reference

Send Help Center Feedback