FolderObject.IsRootFolder

<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\asp\test")
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
%>

輸出：

The folder is not the root folder!