show all drivers in file system

msi_333 · **Posted:** Fri Apr 08, 2011 2:57 pm

Code:

<html>
<% 
'declare our variables 
    Dim objFileSyetm, objDriveFile, driveObj
    ' create File System Object.
    objFileSyetm = Server.CreateObject("Scripting.FileSystemObject")
    objDriveFile = objFileSyetm.Drives
    'loop for every drive  
    For Each driveObj In objDriveFile
        'check if drive ready.
        If driveObj.IsReady Then
            Response.Write("Drive Letter:" & driveObj.DriveLetter & "<br>")
            Response.Write("Drive Path:" & driveObj.Path & "<br>")
            Response.Write("Drive Free Space:" & driveObj.FreeSpace & "<br>")
            Response.Write("Drive Total Size:" & driveObj.TotalSize & "<br>")
            Response.Write("Drive File System:" & driveObj.FileSystem & "<br>")
             
        Else
            'driver not ready .
            Response.Write(driveObj.DriveLetter & "<br>")
            Response.Write("is unavailable")
        End If
    Next
    ' delete objects.
    objDriveFile = Nothing
    objFileSyetm = Nothing
%>
</html>
 

show all drivers in file system

Users browsing similar codes