获取指定盘符信息-阿里云开发者社区

开发者社区> 科技小先锋> 正文

获取指定盘符信息

简介:
+关注继续查看
set FSO=CreateObject("Scripting.FileSystemObject")
set dc=FSO.Drives
Dim dName
  dName=""
For Each d in dc
  
  dName=dName&d.DriveLetter&"盘 "
  
  'Wscript.echo dName
Next
    Wscript.Echo "温馨提醒:"+vbCRLF+vbTab+"您的电脑磁盘仅有"&dName+vbCRLF+"如果您输入的盘符不在这个范围内,或者CD-ROM无法加载,"+vbcrlf+"将不会有任何磁盘信息显示!"  
set dc=nothing
Set fso=nothing
ON ERROR RESUME NEXT
Dim DrviePath
DrviePath=InputBox("请输入您要检查的磁盘:(格式:盘符:,盘符:\指定路径)")
if Trim(DrviePath)<>"" then
Wscript.Echo GetDrive(DrviePath) 
Function GetDrive(DrviePath)
Dim fso
Dim s
Dim tp
Dim dc
s=""
if instr(DrivePath,":")= 0 then '当客户端输入c等,那么需要将其合并成c:
   DrviePath=DrviePath&":"
end if
set FSO=CreateObject("Scripting.FileSystemObject")
set Drive=fso.GetDrive(fso.GetDriveName(DrviePath))
  '显示Drive所有属性
if(Drive.VolumeName)="" then 
    VolumeName="系统默认" 
else 
    VolumeName=Drive.VolumeName
end if
s="驱动盘符:"&Drive.DriveLetter&"盘"
s=s+vbCRLF+"文件系统类型:"&Drive.FileSystem
s=s+vbCRLF+Drive.DriveLetter&"磁盘总空间:"&FormatNumber(Drive.TotalSize/(1024*1024*1024))&"GB"
s=s+vbCRLF+Drive.DriveLetter&"盘剩余空间:"&FormatNumber(Drive.AvailableSpace/(1024*1024*1024))&"GB"
s=s+vbCRLF+Drive.DriveLetter&"盘卷标:"&VolumeName
Tnum=Drive.DriveType'驱动类型
 
if(Tnum=0) then
   tp = "磁盘不清楚"
elseif(Tnum=2) then
   tp="逻辑磁盘"
else
   tp="其他磁盘"
end if 
s=s+vbCRLF+"驱动器类型:"&tp
GetDrive=s
set Drive=nothing
set fso=nothing 
End Function
Else
Wscript.echo "您放弃了磁盘信息显示功能!"
End if


本文转自hahazhu0634 51CTO博客,原文链接:http://blog.51cto.com/5ydycm/113255,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
从指定位置读取信息
@ARGV=qw# larry moe curly#;while (){ chomp; print "It was $_ that I saw in some stooge_like file!\n";} #从larry,moe和curly三个文件中读取行信息
419 0
[20121203]windows下使用systeminfo查看本机信息.txt
[20121203]windows下使用systeminfo查看本机信息.txt前几天看别人使用systeminfo命令查看本机信息,感觉显示很多,在自己的机器上做一个测试以及学习看看。
1037 0
PolarDB-X 1.0-用户指南-自定义控制指令-统计信息查询类语句
找出需调优的慢SQL后,先通过EXPLAIN查看执行计划,然后通过如下方法优化SQL:下推更多计算至存储层MySQL,适当增加索引,优化执行计划。
21 0
WinForm员工信息表
  先搞一个panel,然后里面放label。
605 0
Spring Boot中使用Actuator的/info端点输出Git版本信息
对于Spring Boot的Actuator模块相信大家已经不陌生了,尤其对于其中的/health、/metrics等强大端点已经不陌生(如您还不了解Actuator模块,建议先阅读《Spring Boot Actuator监控端点小结》)。
1303 0
6967
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
《Nacos架构&原理》
立即下载
《看见新力量:二》电子书
立即下载
云上自动化运维(CloudOps)白皮书
立即下载