Function DiskFreeSpace(sDiskDrive)

' Creiamo l'oggetto FileSystemObject
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' Impostiamo l'unità da controllare
Dim DiskDrive
Set DiskDrive = objFSO.GetDrive(sDiskDrive)

' Ricaviamo lo spazio residuo in Kbyte
Dim iFreeSpace
iFreeSpace = DiskDrive.FreeSpace

' Trasformiamo il residuo in Kbyte
iFreeSpace = iFreeSpace / 1024
' Eliminiamo la parte decimale
iFreeSpace = FormatNumber(iFreeSpace, 0)

' Ricaviamo lo spazio totale in Kbyte
Dim iTotalSize
iTotalSize = DiskDrive.TotalSize

' Trasformiamo lo spazio totale in Kbyte
iTotalSize = iTotalSize / 1024
' Eliminiamo la parte decimale
iTotalSize = FormatNumber(iTotalSize, 0)

' Restituiamo il risultato
DiskFreeSpace = iFreeSpace & "Kb residui su " & iTotalSize & "Kb totali. " & FormatNumber( (iFreeSpace*100)/iTotalSize ,2) & "% di spazio occupato"



' Liberiamo la memoria
Set DiskDrive = Nothing
Set objFSO = Nothing

End Function