<%
drivePath = "/"
drivePath = Server.MapPath(drivePath)
drivePath = left(drivePath,Instr(drivePath,":"))
'Response.Write(drivePath)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'判断驱动器是否存在
If fso.DriveExists(drivePath) Then
Set drive = fso.GetDrive(drivePath) '取得drive对象
'判断是否准备就绪
If drive.IsReady Then
Response.Write "空间：" & drive.AvailableSpace & "字节<br>"
Response.Write "驱动器字符：" & drive.DriveLetter & "<br>"
Response.Write "驱动器类型：" & GetDriveTypeName(drive.DriveType) & "<br>"
Response.Write "文件系统：" & drive.FileSystem & "<br>"
Response.Write "剩余空间：" & drive.FreeSpace & "字节<br>"
Response.Write "路径：" & drive.Path & "<br>"
Response.Write "根目录：" & drive.RootFolder & "<br>"
Response.Write "序列号：" & drive.SerialNumber & "<br>"
Response.Write "共享名：" & drive.ShareName & "<br>"
Response.Write "空间大小：" & drive.TotalSize & "字节<br>"
Response.Write "卷标：" & drive.VolumeName & "<br>"
Else
Response.Write "驱动器没有准备好。"
End If
Else
Response.Write "驱动器不存在。"
End If
Set fso = Nothing
Function GetDriveTypeName(driveTypeNumber)
Dim name
Select Case driveTypeNumber
Case 1
name = "可移动磁盘"
Case 2
name = "硬盘"
Case 3
name = "网络共享"
Case 4
name = "光驱"
Case 5
name = "RAM磁盘"
Case Else
name = "未知类型"
End Select
GetDriveTypeName = name
End Function
%>