<%
Private Function Drive(ByVal driveSpec)
    Dim objFSO, boolFound, objDrive
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    boolFound = objFSO.DriveExists(driveSpec)
    If boolFound Then
        Set objDrive = objFSO.GetDrive(driveSpec)
        If objDrive.IsReady Then
            Drive = objDrive.DriveLetter
        Else
            Drive = Null
        End If
        Set objDrive = Nothing
    Else
        Drive = Empty
    End If
    Set objFSO = Nothing
End Function
%>