<% ' ' jQuery File Tree ASP (VBS) Connector ' Copyright 2008 Chazzuka ' programmer@chazzuka.com ' http://www.chazzuka.com/ ' ' retrive base directory dim BaseFileDir:BaseFileDir=Request.Form("dir") ' if blank give default value if len(BaseFileDir)=0 then BaseFileDir="/userfiles/" dim ObjFSO,BaseFile,Html ' resolve the absolute path BaseFile = Server.MapPath(BaseFileDir)&"\" ' create FSO Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") ' if given folder is exists if ObjFSO.FolderExists(BaseFile) then dim ObjFolder,ObjSubFolder,ObjFile,i__Name,i__Ext Html = Html + "

"&VBCRLF Set ObjFolder = ObjFSO.GetFolder(BaseFile) ' LOOP THROUGH SUBFOLDER For Each ObjSubFolder In ObjFolder.SubFolders i__Name=ObjSubFolder.name Html = Html + "
• "&_ ""&_ (i__Name)+"
"&VBCRLF Next 'LOOP THROUGH FILES For Each ObjFile In ObjFolder.Files ' name i__Name=ObjFile.name ' extension i__Ext = LCase(Mid(i__Name, InStrRev(i__Name, ".", -1, 1) + 1)) Html = Html + "
• "&_ ""&_ (i__name)+"
"&VBCRLF Next Html = Html + "

"&VBCRLF end if Response.Write Html %>