FreeSpace (Propiedad)

           

Descripción

Devuelve la cantidad de espacio libre disponible para un usuario en el recurso compartido de red o unidad especificada. Sólo lectura.

Sintaxis

objeto.FreeSpace

El objeto es siempre un objeto Drive.

Comentarios

El valor devuelto por la propiedad FreeSpace normalmente es el mismo que el que devolvió la propiedad AvailableSpace. Pueden existir diferencias entre los dos en sistemas de equipos que admitan cuotas.

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

Sub ShowFreeSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Unidad " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Espacio libre: " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & " Kbytes"
    MsgBox s
End Sub