Codango: ASP Code Snippet

JSP

Share The Love

You are 1 of 43 Active ASP Visitors

ASP Home | Resources | Write a Review | My Favor-Its | Login

Folder Tree Recursive FuncCode Snippet

Hits Today: 1

Read Reviews | Report Errors

[+][+]

0
Reviews

0
Favor-It

Simple function that generate a folder list of your site. Just give the path of your parent folder. Also you can get basic recursive function logic by this code. Code: ASP 3.0 & VBScript


		Code Snippet

Code Written By: Ferruh Mavituna

'//***************************************************/
'// Ferruh Mavituna | Freelance Designer & Developer
'// ferruh@mavituna.com | http://ferruh.mavituna.com
'// Simple Site Map Maker func !
'//***************************************************/
Dim SitePath
'SitePath = Server.Mappath("../../") 
SitePath = Server.Mappath("/")

Response.Write "<h1>&quot;" & SitePath & "&quot; Folders</h1>"

'// Call Tree
	TreeList SitePath,SitePath,0



'//***************************************************/
'// Main Func. !
'//***************************************************/
Function TreeList(byval SitePath,byval Folders,byval sublevel)
	Dim FSO, FolderName, tmpstr, i, Subcount, tmpName
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set Folders=FSO.GetFolder(Folders)

		'// Loop Folders
		For Each FolderName In Folders.subfolders		
			tmpName = Right(FolderName,Len(FolderName)-Len(SitePath)-1)
			Subcount = FolderName.subfolders.count
			'// Levels
			tmpstr=""
			For i=1 To sublevel
				tmpstr = tmpstr & "&nbsp;. "
			Next
			
			'// Print
			Response.Write tmpstr &  tmpName & "<br />" & vbNewline

			'// Call this func.  
			If Subcount>0 Then TreeList SitePath, FolderName, sublevel+1
			
			'// Flush !
			'Response.Flush
		Next
	
	'// Kill
	Set FSO=Nothing
	Set Folders=Nothing
End Function


	Get Live Support

To use the code above, click and drag your mouse over the code to highlight it. Then right click on the highlighted code and click "Copy." Now you may paste it into your code editor.

Submit Your Own Code to Codango


Link to Us \| About Us		Advertise \| Contact Us \| Website Help
Write a User Review Today! Its Fun, Fast, and Easy!	Codango Home \| PHP \| ASP.NET \| ASP \| JSP Advertise With Us \| About Us \| Terms of Use \| Privacy Policy


� 2010 InfoGenius Inc., All rights reserved