Code to display the Directory structure supplied to it

Category:

ASP, HTML and XML

Type:

Snippets

Difficulty:

Intermediate

Author: Anonymous

Version Compatibility:

More information:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

<%option explicit%>

<HTML>
<Head>

Dim FldId,ParentId

if Request("Path") = "" then
	Response.Write "<P align='Center'><B>Path is not passed or All parameters are not passed. plz supply/pass the proper path and also all parameters</b>"
	Response.end 
else
	SelectedPath = Request("Path")
end if

set objFso = Server.CreateObject("Scripting.FileSystemObject")
if objFso.FolderExists(SelectedPath) then
	set fldSelectedPath = objFso.GetFolder(SelectedPath) 
	if Session("StartPath") = "" then
		Session("StartPath") = 	fldSelectedPath
	end if
	DisplayStructure
else
	Response.Write "<P align='Center'><B>Invalid Folder Name or Folder " & Request("Path") & "Does not exists</b>"
	Response.end 
end if

Function DisplayStructure
	Dim BackPath
	Response.Write "<Table border=1>"
	Response.Write "<Tr><TH Colspan=2> Displaying Structure of  " & SelectedPath & "</th>"
	Response.Write "<Tr><TH> Folder/File Name  </th>"
	Response.Write "<TH> Type </th>"
	DisplayContent fldSelectedPath
	
	if fldSelectedPath <> Session("StartPath") then
		BackPath = mid(fldSelectedPath,1,InStrRev(fldSelectedPath,"\")-1)
		Response.Write "<TR><TD colspan=2><A Href=DisplayDirStructure.asp?path=" & Server.HTMLEncode(BackPath) & ">Back</a></td></tr>"
	end if
		Response.Write "</table>"
End Function

Function DisplayContent(byval pFld)
	Dim flSel,fldSel,hrefPath
	
	If pfld.Files.count>0 then
		For each flsel in Pfld.Files
			Response.write "<TR><TD>" &  flsel.name & "</td><TD>File</td></tr>"
		Next
	End if
	
	If pFld.subFolders.Count>0 then
		For each fldsel in Pfld.subFolders
			hrefpath = SelectedPath  & "/" & server.URLEncode(fldsel.name)
			Response.write "<TR Align='Left'><TD><A Href=DisplayDirStructure.asp?path=" & Server.HTMLEncode(hrefPath) & ">" & fldsel.name & "</a></td><TD>Folder</td></tr>"
		Next
	End if	
End Function
%>

</body>
</html>