Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2
' Opens the file using the system default. Const TristateTrue = -1
' Opens the file as Unicode. Const TristateFalse = 0
' Opens the file as ASCII.
Dim objFileSystem, strFile, strDriveName, objDrive, strDriveType, R
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
strFile = Request.ServerVariables("SCRIPT_NAME")
strFile = Server.MapPath(strFile)
strDriveName = objFileSystem.GetDriveName(strFile)
Set objDrive = objFileSystem.GetDrive(strDriveName)
R = "<b>Test filename</b> " & strDriveName & "/.." & Request.ServerVariables("SCRIPT_NAME") & "<BR>"
R = R & "<b>Some Properties of Drive</b> " & strDriveName & "<BR>"
R = R & "<b>Drive Letter</b> = " & objDrive.DriveLetter & "<BR>"
R = R & "<b>Path</b> = " & objDrive.Path & "<BR>"
R = R & "<b>File System</b> = " & objDrive.FileSystem & "<BR>"
R = R & "<b>Volume Name</b> = " & objDrive.VolumeName & "<BR>"
R = R & "<b>Free Space</b> = " & FormatNumber(objDrive.FreeSpace/1024, 0) & " KB<BR>"
R = R & "<b>Total Size</b> = " & FormatNumber(objDrive.TotalSize/1024, 0) & " KB<BR>"
R = R & "<b>Root Folder</b> = " & objDrive.RootFolder & "<BR>"
R = R & "<b>Serial Number</b> = " & objDrive.SerialNumber & "<BR>"
R = R & "<b>Share Name</b> = " & objDrive.ShareName & "<BR>"
If objDrive.IsReady = TRUE Then
    R = R & "<b>Access Status</b> = Ready for Access" & "<BR>"
  Else
    R = R & "<b>Access Status</b> = Not ready for Access" & "<BR>"
End If
Select Case objDrive.DriveType
  Case 0:
  strDriveType = "Unknown"
  Case 1:
  strDriveType = "Removable"
  Case 2:
  strDriveType = "Fixed"
  Case 3:
  strDriveType = "Network"
  Case 4:
  strDriveType = "CD-ROM"
  Case 5:
  strDriveType = "RAM Disk"
End Select
R = R & "<b>Drive Type</b> = " & strDriveType & "<BR>"
Response.Write R
Set objDrive = Nothing
Set objFileSystem = Nothing