<%
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
%>

Output:

The folder is not the root folder!