<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	'确定父目录
%>						
 <!--下面开始第1个列表框-->
 <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> 
 <!-- 下面开始第2个列表框-->
<SELECT size =8 style='width:200px'>
 <%
 '显示子文件列表
 For Each objFile in objFolder.Files%>
 <OPTION><%=objFile.Name%></option>
 <!--	 文件列表-->
 <%Next%>
</SELECT>
</form>
</BODY>
</HTML>

