Function ShowFolderList(folderspec) Dim fso, f, f1, s, sf Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(server.mappath(folderspec)) Set sf = f.SubFolders For Each f1 in sf s = s & f1.name s = s & "<BR>" Next ShowFolderList = s End Function
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 