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

I Video di HTML.it

Photoshop: come realizzare l’effetto fumo

Un dettaglio o un particolare è ciò che trasforma una semplice fotografia in un’immagine d’effetto: in questo video vedremo come […]