<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:asptest")
if fo.IsRootFolder=true then
??Response.Write("The folder is the root folder!")
else
??Response.Write("The folder is not the root folder!")
end if
set fo=nothing
set fs=nothing
%>