15-1.txt

来自「开发王代码 代码」· 文本 代码 · 共 9 行

var s =""; 
var fso = new ActiveXObject("Scripting.FileSystemObject"); 
var drv = fso.GetDrive("c:\\");
s += "总计大小: " + drv.TotalSize /(1024*1024); 
s += " Mb" + "<br />"; 
s += "可用空间: " + drv.FreeSpace /(1024*1024); 
s += " Mb" + "<br />"; 
document.write(s);