<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write "Napd C jest poprawny:" & objFileSys.DriveExists("C") & "<P>"
Response.Write "Napd A jest poprawny " & objFileSys.DriveExists("A") & "<P>"
Response.Write "Napd R jest poprawny:" & objFileSys.DriveExists("R") & "<P>"
%>
