php检测磁盘空间,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