drives.html

来自「即学即用JavaScript核心对象参考手册原版光盘」· HTML 代码 · 共 22 行

<script>
    var objFso=new ActiveXObject("Scripting.FileSystemObject");
	var objDrvs=objFso.Drives
	var  drvs = new Enumerator(objDrvs);
	with (document)
	{
	    write("当前计算机上共与可用磁盘"+objDrvs.Count+"个<br>");
	    while(!drvs.atEnd())
		{
		    var drv=drvs.item();
			write("<li>"+drv.DriveLetter);
			if(drv.IsReady)
			   {
			      write(",已就绪");
				  write("，可用控件"+drv.FreeSpace);
				}
			else
			   write(",未就绪");
			drvs.moveNext();
		}
	}
</script>