<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.GetParentFolderName("c:\support\docs\doc1.txt") & "<P>"
Response.Write objFileSys.GetParentFolderName("c:\support\docs") & "<P>"
Response.Write objFileSys.GetParentFolderName("c:\support") & "<P>"
%>
