Это функция ASP для отображения оставшегося дискового пространства. Друзья, которым она нужна, могут просто использовать ее напрямую.
Функция ShowFreeSpace(drvPath)
Дим фсо, д, с
Установите fso = CreateObject(Scripting.FileSystemObject)
Установите d = fso.GetDrive(fso.GetDriveName(drvPath))
s = диск&UCase(drvPath) & -
s = s & d.VolumeName &<BR>
s = s & свободное пространство: & FormatNumber(d.FreeSpace/1024, 0)
s = s&KB
ShowFreeSpace=s
Конечная функция