Enumeral all files on a directory, such as: Call Bianli ("c:") Function Bianli (PATH) SET FSO = CreateObject ("scripting.FileSystemObject") on error resume next set objfolder = fso.getFolder (PATH)
set objSubFolders = objFolder.Subfolders for each objSubFolder in objSubFolders if right (path, 1) <> "/" then nowpath = path "/" objSubFolder.name else nowpath = path objSubFolder.name end ifResponse.Write nowpath set objFiles = objSubFolder.Files for each objFile in objFiles Response.Write "
" Response.Write objFile.name next Response.Write "
-------------------------------------------------- --------- March 25, 2004