Muchas veces queremos saber como se encuentra la ocupación de los discos de nuestro web server. En ésta oportunidad les dejo las lineas de código para que puedan hacerlo en ASP.

Además hay una función para mostrar el tamaño en formato amigable, en MB, GB, y no en bytes como devuelve la función.


Function FormatSize(Bytes)
If Bytes >= 1073741824 Then
FormatSize = FormatNumber(Bytes / 1024 / 1024 / 1024, 0) & " GB"
ElseIf Bytes >= 1048576 Then
FormatSize = FormatNumber(Bytes / 1024 / 1024, 0) & " MB"
ElseIf Bytes >= 1024 Then
FormatSize = FormatNumber(Bytes / 1024, 0) & " KB"
ElseIf Bytes < 1024 Then
FormatSize = Fix(Bytes) & " Bytes"
End If
End Function

Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)
Set objDrive = objFSO.GetDrive(“C:”)
Response.write objDrive.DriveLetter & ” ” & FormatPercent(objDrive.FreeSpace / objDrive.TotalSize) & ” | ” & FormatSize(objDrive.FreeSpace) & ” | ” & FormatSize(objDrive.TotalSize)