Das FilesSystemObject ermöglicht den Zugriff auf Laufwerke,
Folders und Files.
<%
Dim objfs, objdrive, objdrives
Set objfs = _
CreateObject("Scripting.FileSystemObject")
Set objdrives = objfs.Drives
For Each objdrive In objdrives
Response.Write("Drive:"&objdrive.DriveLetter&"<p />")
If objdrive.IsReady = True Then
Response.Write("Volume: "&objdrive.VolumeName&"<p />")
Response.Write("Free : "&objdrive.FreeSpace&"<p />")
Else
Response.Write("Drive Isn't ready<p />")
End If
Next
%>
Für eine detailierte Liste der Properties und Methoden bitte
Referenz verwenden.