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