Dies ist eine Funktion für ASP, um den verbleibenden Speicherplatz anzuzeigen. Freunde, die ihn benötigen, können ihn einfach direkt verwenden.
Funktion ShowFreeSpace(drvPath)
Dim fso, d, s
Setze fso = CreateObject(Scripting.FileSystemObject)
Setze d = fso.GetDrive(fso.GetDriveName(drvPath))
s = Laufwerk&UCase(drvPath) & -
s = s & d.VolumeName &<BR>
s = s & freier Speicherplatz: & FormatNumber(d.FreeSpace/1024, 0)
s = s&KB
ShowFreeSpace=s
Funktion beenden