<html>
<head>
 <title>getfolder应用示例</title>
<script for="dir" language="vbscript" event="onclick">
 form1.submit
</script>
</head>
<body>
 <form name="form1">
<%
'创建文件系统对象
set fso = server.createobject("scripting.filesystemobject")
if trim(request("dir"))="" then                  		'是否有表单提交的数据
 set objfolder=fso.getfolder(server.mappath(".\")) 	'确定当前目录
else
 set objfolder=fso.getfolder(trim(request("dir"))) 	'确定当前目录
end if
%>
当前目录：<%=objfolder.name%><br>
<% pfld=objfolder.parentfolder.path  	'确定父目录  %>
 <!--下面开始第一个列表框-->
 <select size ="8" style='width:200px 'name="dir">
 <% '显示父文件夹符号
 if trim(objfolder.parentfolder.name)<>"" then%>
 <option value=<%=pfld %>>[..]</option>
 <% end if %>
<% for each objsubfolder in objfolder.subfolders  '显示子文件目录 %>
   <option value="<%=objsubfolder.path %>">
   <% =objsubfolder.name %>
  </option>
 <% next %>
 </select> 
 <!-- 下面开始第二个列表框-->
<select size =8 style='width:200px'>
 <%  for each objfile in objfolder.files  '显示子文件列表 %> 
   <option><% =objfile.name %></option>
 <% next %>
</select>
</form>
</body>
</html>
