ASP, FSO traversal directory and directory
<% @ Language = VBScript%> <% 'I wrote a traversal directory and a function of files under the directory,%> <% Function Bianli (PATH) SET FSO = Server.createObject ("scripting.filesystemObject") on Error ResMe next set objFolder = fso.GetFolder (path) set objSubFolders = objFolder.Subfolders for each objSubFolder in objSubFolders nowpath = path "/" objSubFolder.name Response.Write nowpath set objFiles = objSubFolder.Files for each objFile in objFiles Response.Write "
--- "Response.write objfile.name next response.write"
"Bianli (nowPath) 'recursive next set objfolder = Nothing set objsubfolders = Nothing set fso = nothing end function%> <% bianli (" D: ") 'Traversing D: Disc%>
