Il s'agit d'une fonction permettant à ASP d'afficher l'espace disque restant. Les amis qui en ont besoin peuvent simplement l'utiliser directement.
Fonction ShowFreeSpace (drvPath)
Dim fso, d, s
Définir fso = CreateObject (Scripting.FileSystemObject)
Définir d = fso.GetDrive(fso.GetDriveName(drvPath))
s = lecteur&UCase(drvPath) & -
s = s & d.NomVolume &<BR>
s = s & espace libre : & FormatNumber(d.FreeSpace/1024, 0)
s = s&KB
ShowFreeSpace=s
Fonction de fin