Conoscere lo spazio libero su una unità del server

Il metodo GetDrive mette a disposizione alcune proprietà molto interessanti come VolumeName e AvailableSpace. Quest'ultima poi, restituisce la quantità di bytes disponibili sull'unità indicata:

<%

Function SpazioLibero(unita)

Dim fso, u, testo

Set fso = CreateObject("Scripting.FileSystemObject")

Set u = fso.GetDrive(fso.GetDriveName(unita))

testo = "Disco <b>" & UCase(unita) & "</b> (" & u.VolumeName & ")<br>" & "Spazio libero: " & FormatNumber(u.AvailableSpace/1024, 0) & " KB"

SpazioLibero = testo

End Function

%>

<%= SpazioLibero("C:") %>

Questa funzione restituisce:

Disco C: (Etichetta_unità)

Spazio libero: 1.000.000 KB