AvailableSpace (Propiedad)

           

Descripción

Devuelve la cantidad de espacio disponible para un usuario en el recurso compartido de red o la unidad especificada.

Sintaxis

objeto.AvailableSpace

El objeto es siempre un objeto Drive.

Comentarios

El valor devuelto por la propiedad AvailableSpace normalmente es la misma que devolvió la propiedad FreeSpace. Pueden existir diferencias entre los dos valores para sistemas de equipos que admiten cuotas.

El código siguiente demuestra la utilización de la propiedad AvailableSpace:

Sub ShowAvailableSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Available Space: " & FormatNumber(d.AvailableSpace/1024, 0) 
    s = s & " Kbytes"
    MsgBox s
End Sub