显示多级目录和文件的源程序（转）

最新推荐文章于 2024-11-01 08:00:00 发布

转载最新推荐文章于 2024-11-01 08:00:00 发布 · 136 阅读

Directory List

Directory List

This script shows how to read a directory structure in ASP. The display belowshows the contents of a few directories located on this site, including anysubdirectories and their contents.

Each file is displayed as a link, so you can click on the file name to viewthat particular file.

How it Works

The script makes use of the FileScriptingObject which allows you to accessfiles and directories on the server. These objects contain properties thatdescribe the file or folder name, physical path, size, last modified date andother information.

Folder objects also contain collections of other FileScriptObjects for eachsubfolder and file in that directory.

The ListFolderContents subroutine does the work. It requires thephysical path to the folder, which can be found using the built-in
Server.MapPath() function. This function takes either a relative orabsolute URL and returns the physical path to that file. For example, the URL"/graphics/image.gif" might return a path of
"D:Inetpubwwwrootgraphicsimage.path". Either directories or files can beused.

Using Recursion

ListFolderContents first creates a Folder object using the given path.
It displays the folder name then loops through the SubFolders collection ofthat folder. For each subfolder it makes a recursive call to itself, passingthe subfolder path.

This causes it to walk down through the hierarchial directory structure anddisplay each subfolder and contents. The recursion stops down each branch whenit reaches a subfolder that has no subfolders of it's own.

Mapping a Physical Path to a URL

After listing all subfolders, ListFolderContents then loops through theFiles collection, displaying each file name to complete the contents displayfor the given folder.

Each file is displayed as a standard HTML link. Unfortunately the
Server.MapPath() function has no compliment to convert a physical pathback to a URL. But this is not difficult to do and the script includes afunction called MapURL that takes the file path and returns a valid URLthat can be used to link to it.

Notes on the Example

To list the entire site structure you could simply call
ListFolderContents once with path to the web site root at the argument.

For the example on this page however, only a few subdirectories are used.
Otherwise the display would be several pages long. So separate calls are madefor each subdirectory to be shown.

Source

　
dirlist.asp

Home

　　dim fs, folder, file, item, url

　　set fs = CreateObject("Scripting.FileSystemObject")
　　set folder = fs.GetFolder(path)

　　Response.Write("

" & folder.Name & "" & vbCrLf)
　　Response.Write("

" & vbCrLf)

　　'Display sub folders.

　　for each item in folder.SubFolders
　　　ListFolderContents(item.Path)
　　next

　　'Display files.

　　for each item in folder.Files
　　　url = MapURL(item.path)
　　　Response.Write("

" & item.name & "
" & vbCrLf)
　　next

　　Response.Write("

" & vbCrLf)

　end sub

　function MapURL(path)

　　dim rootPath, url

　　'Convert a physical file path to a URL.

　　rootPath = Server.MapPath("/")
　　url = Right(path, Len(path) - Len(rootPath))
　　MapURL = Replace(url, "", "/")

　end function %>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124709/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124709/