[Resolvido] Gerando Uma Lista De Pastas

[xanburzum 169]

Simples função que gera uma lista de pastas do seu site. Basta dar o caminho da sua pasta pai.

 

Dim SitePath
'SitePath = Server.Mappath("../../") 
SitePath = Server.Mappath("/")

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

' chama a funçao
	FolderTree SitePath,SitePath,0


Function FolderTree(byval SitePath,byval Folders,byval sublevel)
	Dim FSO, FolderName, tmpstr, i, Subcount, tmpName
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set Folders=FSO.GetFolder(Folders)

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

			'// chama a funcão
			If Subcount>0 Then FolderTree SitePath, FolderName, sublevel+1
			
			'// Flush !
			'Response.Flush
		Next
	
	'destruir objetos
	Set FSO=Nothing
	Set Folders=Nothing
End Function