<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "父文件夹名字是：" & fldr & "<br>"

If fldr.IsRootFolder = True Then
   Response.Write "该文件夹是一根文件夹" & "<br>"
Else
   Response.Write "该文件夹不是根文件夹" & "<br>"
End If

Response.Write "驱动器名字是：" & fldr.Drive & "<br>"
%>