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

转载于:https://www.cnblogs.com/joeblackzqq/archive/2011/02/26/1965973.html