Esta es una función para que ASP muestre el espacio restante en el disco. Los amigos que lo necesiten pueden usarlo directamente.
Función MostrarEspacioLibre(drvPath)
Dim fso, d, s
Establecer fso = CreateObject(Scripting.FileSystemObject)
Establecer d = fso.GetDrive(fso.GetDriveName(drvPath))
s = unidad y UCase (drvPath) & -
s = s & d.NombreVolumen &<BR>
s = s y espacio libre: & FormatNumber(d.FreeSpace/1024, 0)
s = s&KB
MostrarEspacioLibre=s
Función final