ASP获取目录名称

原创 作者:老李 2021-04-01 46

ASP获取目录名称范例

<%
function WriteChildFolderNames(folderPath)
  dim fso, fd
  set fso = Server.CreateObject("Scripting.FileSystemObject")
  set fd = fso.GetFolder(folderPath)
  Response.Write "<br/>目录 " & folderPath & " 下的子目录:<hr>"
  Response.Write "<select multiple size='10'>"

  for each item in fd.SubFolders
    Response.Write "<option>" & item.Name & "</option><br>"
  next

  Response.Write "</select>"
  set fd = nothing
  set fso = nothing
end function

'调用范例:

' 当前目录的子目录列表
WriteChildFolderNames(Server.MapPath("."))

' 通过绝对路径来引用
WriteChildFolderNames("d:\")
%>


本文为原创文章,转载请注明出处。