Ricavare lo spazio residuo sul server con ASP

ASP E-Commerce con ASP Menu Javascript Area Aziende Cocktail Registrazione domini

Home + Articoli + File e Directory + Articolo # 64

Concesso in esclusiva a Mr.Webmaster. Vietata la riproduzione.

Grazie all'oggetto File System è possibile ricavare lo spazio residuo nella partizione specificata.

Utilizzeremo il metodo GetDrive a cui passeremo la partizione che ci interessa, ad esempio C, e ricaviamo lo spazio residuo con la proprietà FreeSpace.

Di seguito un semplice esempio corredato da opportuni commenti:

<%@LANGUAGE = VBScript%>
<%
    ' Dichiaro le variabili che mi servono nello script
    Dim partizione, fso

    partizione = "C" ' Ricavo la partizione che mi interessa

    ' Creo l'oggetto File System
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    ' Mostro un messaggio che formatta il risultato numerico a video
    With Response
        .Write "La partizione " & partizione & " contiene "
        .Write FormatNumber(fso.GetDrive(partizione).FreeSpace, 0)
        .Write " byte di memoria"
    End With

    ' Un po di pulizia...
    Set fso = Nothing 
%>

Il valore restituito da FreeSpace è espresso in byte.