Código fuente de 'Capacidad discos.asp'
<html>
<head>
<title>Capacidad discos - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b><font size="3">Capacidad discos</font></b></p><br>
<%
Dim FSO, Uds, oUnidad
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set Uds = FSO.Drives
for each oUnidad in Uds
'Recorremos la colección de unidades
on error resume next
Response.Write (oUnidad.DriveLetter & " - Capacidad: " & oUnidad.TotalSize/(1024*1024) & " MBytes.<br>")
next
set Uds = nothing
set FSO = nothing
%>
</body>
</html>