<%
dim objfso
set objfso=server.createobject("scripting.filesystemobject")
if objfso.driveexists("c:") then
response.write"磁盘C是存在的"
else
response.write"磁盘C是不存在的"
end if
if objfso.folderexists(server.mappath("Inetpub")) then
response.write"Inetpub文件夹是存在的"
else
response.write"Inetpub文件夹是不存在的"
end if
if objfso.fileexists(server.mappath("ww.asp")) then
response.erite"ww.asp文件是存在的"
else
response.write"ww.asp文件是不存的"
end if