Set fso=Server.CreateObject("Scripting.FileSystemObject") 注意CreateObject的内部再也不是MSWC了,而是Scripting。 那下面就可以通过fso来处理驱动器了。比如fso.GetDriveName提取驱动器名,fso.GetDrive同样提取标准驱动器名。比如: 1,fso.asp
<%Set fso=Server.CreateObject("Scripting.FileSystemObject") Set drv=fso.GetDrive(fso.GetDriveName("d:"))%> 该盘的空间大小:<%=drv.TotalSize%><br> 该盘的剩余空间大小:<%=drv.FreeSpace%> 以上只是提取的D盘驱动器的信息,来个通用的函数,继续分别测试自己的驱动吧。 3,drvinfo.asp
<% Function ShowDriveInfo(drvPath) Dim fso, drv, s Set fso = CreateObject("Scripting.FileSystemObject") Set drv = fso.GetDrive(fso.GetDriveName(drvPath)) s = "驱动盘" & drv & "的卷标是:" s = s & drv.VolumeName & "<br>" s = s & "总计空间:" & drv.TotalSize & "<br>" s = s & "剩余空间:" & drv.FreeSpace & "<br>" s = s & "文件类型:" & drv.DriveType & "<br>" s = s & "文件系统:" & drv.FileSystem Response.Write s End Function%> <%on error resume next whatpath=request.form("path") if whatpath<>"" then ShowDriveInfo(whatpath) end if%> <form action="drvinfo.asp" method="post"> <input name="path"> <input type="submit"> </form> 其中的drv.TotalSize和drv.FreeSpace返回的是字节数,我们可以用FormatNumber()函数处理下。比如FormatNumber(Drive.TotalSize/1024,0)得到一眼就知磁盘多少G的值。 还有一个文件类型:drv.DriveType最多的时候是显示数值“2”,其实“2”就表示的“硬盘驱动器”,“1”表示“软盘驱动器”,“4”表示“光盘驱动器”……