ASP中如何读取文件夹的名字？

ASP中如何读取文件夹的名字？
读取文件夹中的文件名到是可以搜索到很多，但是怎么读取文件夹的名字呢？

<%
infopath=request.servervariables("path_info") '得到文件相对路径
serverpath=server.mappath("要循环的文件夹/文件夹下的文件") '得到文件绝对路径 这个我没改。必须的要在循环的文件夹下面建一个文件。并在上面写上才可以。

set objfso=createobject("scripting.filesystemobject") '实例文件组件
set objfile=objfso.GetFile(serverpath) '读取文件所在路径
set objfolder=objfile.parentfolder '根据文件所在路径得到上级目录
%>

<%
for each objfoldercount in objfolder.subfolders '循环显示文件夹

response.write(objfoldercount.name)
next
%>
也可以这样
serverpath=server.mappath("要循环的文件夹/文件夹下的文件")
split(serverpath,"/")
之取数组的值就可以了,那就是文件夹

dim i as string dim pathstr as string

pathstr = "d:\"    '父目录 i = dir(pathstr, vbdirectory)    '取第一个 do while i <> ""    '不为空就循环    if i <> "." and i <> ".." then   '如果不是 当前目录及上一级目录 . 及 ..     if (getattr(pathstr & i) and vbdirectory) = vbdirectory then    '是否是目录     list1.additem i    '确定是目录,添加到列表,这里可以自己处理     end if     end if     i = dir    '取下一个 loop