列出指定目录下的所有文件和目录

<%@ LANGUAGE = VBScript %>
<%Server.ScriptTimeout=5000%>