Scripting Runtime Library

AvailableSpace Property

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 the amount of space available to a user on the specified drive or network share.


object.AvailableSpace

Remarks

The object is always a Drive object.

The value returned by the AvailableSpace property is typically the same as that returned by the FreeSpace property. Differences may occur between the two for computer systems that support quotas.

The following code illustrates the use of the AvailableSpace property:

JScript	Copy Code
function ShowAvailableSpace(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 += "Available Space: " + d.AvailableSpace/1024 + " Kbytes"; return(s); }

JScript

Copy Code

function ShowAvailableSpace(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 += "Available Space: " + d.AvailableSpace/1024 + " Kbytes";
   return(s);
}

Visual Basic Script	Copy Code
Function ShowAvailableSpace(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 & "Available Space: " & FormatNumber(d.AvailableSpace/1024, 0) s = s & " Kbytes" ShowAvailableSpace = s End Function

Visual Basic Script

Copy Code

Function ShowAvailableSpace(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 & "Available Space: " & FormatNumber(d.AvailableSpace/1024, 0) 
   s = s & " Kbytes"
   ShowAvailableSpace = s
End Function

Applies To:

Drive Object

Remarks

Applies To:

See Also

Reference

Send Help Center Feedback