欢迎光临爱时尚女性网
 

ASP磁盘驱动器浏览器

2013-2-28 编辑:admin 来源:爱时尚女性网 阅读次数:664
  导读: 磁盘驱动器浏览器 盘符 类型 卷标 总计大小 可用空间 文件系统 ...


</span><br /> <span style="white-space:nowrap;">磁盘驱动器浏览器</span><br /> <span style="white-space:nowrap;">


<%
Function Tran(Driver)
Select Case Driver
Case 0: Tran="设备无法识别"
Case 1: Tran="软盘驱动器"
Case 2: Tran="硬盘驱动器"
Case 3: Tran="网络硬盘驱动器"
Case 4: Tran="光盘驱动器"
Case 5: Tran="RAM虚拟磁盘"
End Select
End Function
set fs=Server.CreateObject("Scripting.FileSystemObject")
%>









<%
on error resume next
For each Drive in fs.Drives
Response.Write ""
Response.Write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.Write ""
Next


set fs=nothing


%>
盘符 类型 卷标 总计大小 可用空间 文件系统
" & Drive.DriveLetter & " " & Tran(Drive.DriveType) & " " & Drive.VolumeName & " " & cstr(Drive.TotalSize) & " " & cstr(Drive.Availablespace) & " " & (Drive.FileSystem) & "





文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。