<% Set FSO = CreateObject("Scripting.FileSystemObject")
hu = Replace(Server.MapPath("index.asp"),"index.asp","") '本系统所在目录
Set TestFolder = FSO.GetFolder(hu) GenerateTestInformation = GenerateAllFolderInformation(TestFolder)
Function GenerateAllFolderInformation(Folder) Dim S, SubFolders, SubFolder, Files, File, i tmpStr = "" Set SubFolders = Folder.SubFolders
If SubFolders.Count <> 0 Then i = 1 For Each SubFolder In SubFolders i = i + 1 tmpStr = tmpStr & GenerateFolderInformation(SubFolder,i) Next End If Response.Write tmpStr & "
