主页 > 知识库 > vbs判断磁盘类型和检测硬盘剩余空间的实现代码

vbs判断磁盘类型和检测硬盘剩余空间的实现代码

热门标签:智能手机 服务器配置 银行业务 网站文章发布 呼叫中心市场需求 铁路电话系统 美图手机 检查注册表项

核心代码:

Function ShowDriveType(drvpath)
  Dim fso, d, t
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set d = fso.GetDrive(fso.GetDriveName(drvpath))
  Select Case d.DriveType
   Case 0 t = "Unknown"
   Case 1 t = "Removable"  '移动硬盘
   Case 2 t = "Fixed"    '硬盘
   Case 3 t = "Network"   '网络硬盘
   Case 4 t = "CD-ROM"
   Case 5 t = "RAM Disk"   'RAM
  End Select
  ShowDriveType = "Drive "  d.DriveLetter  ": - "  t
End Function
 
Function ShowFreeSpace(drvPath) 
 Dim fso, d, s
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set d = fso.GetDrive(fso.GetDriveName(drvPath))    'd为F:
 s = "Drive "  UCase(drvPath)  " - "
 s = s  d.VolumeName  " "
 s = s  "Free Space: "  FormatNumber(d.FreeSpace/1024, 0)
 s = s  " KBytes"
 ShowFreeSpace = s
End Function
 
Dim message
 
message = ShowDriveType("F:\Programming\Applications")
MsgBox message
message = ShowFreeSpace("F:\Programming\Applications")
MsgBox message

标签:长治 河南 红河 上海 沧州 乐山 沈阳 新疆

巨人网络通讯声明:本文标题《vbs判断磁盘类型和检测硬盘剩余空间的实现代码》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266