<%
Option Explicit
Dim objFileSys
Dim MyDrives
Dim TheDrive
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set MyDrives = objFileSys.Drives
Response.Write "Oglna liczba napdw: " & MyDrives.Count & "<P>"
set TheDrive = MyDrives.Item("C")
Response.Write "Napdem C jest: " & TheDrive.DriveLetter & "<P>"
For Each TheDrive in MyDrives
   Response.Write "Napd: " & TheDrive.DriveLetter & "<P>"
Next
%>
