国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

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