Esta é uma função para o ASP exibir o espaço restante em disco. Os amigos que precisam dele podem simplesmente usá-lo diretamente.
Função ShowFreeSpace(drvPath)
Dim fso, d, s
Definir fso = CreateObject(Scripting.FileSystemObject)
Definir d = fso.GetDrive(fso.GetDriveName(drvPath))
s = unidade&UCase(drvPath) & -
s = s & d.VolumeName &<BR>
s = s & espaço livre: & FormatNumber(d.FreeSpace/1024, 0)
s = s&KB
MostrarEspaçoLivre=s
Função final