com exibição de diretorio

[lucasmoraes 1]

ae beleza rapaziada...

preciso da ajuda de vcs to com um script aqui pra exibir o caminho das imagens do banco

mas nao ta exibindo 100%

 

por exemplo se eu tenho pastas neste caminho : --- imagens/pasta1/foto.jpg

 

ele aparec a pasta e a imagem mas se eu tenho um assim imagens/pasta1/pasta2/foto.jpg

ele ja nao acha mais para ser listado

 

alguem poderia me ajudar? vo postar o codigo

 

<%

'traz as pastas dos subdiretorios, é chamada na função lista_subdiretorio
function sub_subdiretorio(nome_subdiretorio) 
	set TheFolder=objFileSys.GetFolder(nome_subdiretorio)
	set MyDrives = objFileSys.Drives
	set TheRootFolder = TheFolder
	set RootFolders = TheRootFolder.SubFolders

	'listar os subdiretórios
	for each SubFolder in RootFolders
		sub_novo = nome_subdiretorio & "\" & SubFolder.Name
		sub_subdiretorio(sub_novo)
		subdir = nome_subdiretorio & "\" & SubFolder.Name & "\"
		set TheFolder=objFileSys.GetFolder(subdir)
		set TheFiles = TheFolder.files
		
		for each AFile in TheFiles
			  ' sub_subdiretorio = sub_subdiretorio & "<option value="&replace(replace(subdir,dir&"\","")," ","%20") & replace(AFile.Name," ","%20")&">A"&replace(replace(subdir,dir&"\","")," ","%20") & replace(AFile.Name," ","%20")&"</option>"
			
		next
	next
end function

function lista_subdiretorio(nome_diretorio2)
	nome_diretorio = server.MapPath("../../imagens/")
 	set TheFolder=objFileSys.GetFolder(nome_diretorio)
	set MyDrives = objFileSys.Drives
	set TheRootFolder = TheFolder
	set RootFolders = TheRootFolder.SubFolders

	'listar os subdiretórios
	for each SubFolder in RootFolders
		sub_novo = nome_diretorio & "\" & SubFolder.Name
		sub_subdiretorio(sub_novo)
		subdir = nome_diretorio & "\" & SubFolder.Name & "\"
		set TheFolder=objFileSys.GetFolder(subdir)
		set TheFiles = TheFolder.files
		for each AFile in TheFiles

			  lista_subdiretorio = lista_subdiretorio & "<option value="&replace(subdir,"C:\Projeto\Web\","")&AFile.Name&">"&replace(replace(subdir,"C:\Projeto\Web\",""),"\","/")&AFile.Name&"</option>"
		next
	next

	'trazer os arquivos da raiz
	set TheFolder=objFileSys.GetFolder(server.MapPath(nome_diretorio2))
	set TheFiles = TheFolder.files

	for each AFile in TheFiles
		 lista_subdiretorio = lista_subdiretorio & "<option value="&replace(nome_diretorio2,"../../","../")&replace(AFile.Name," ","%20")&">"&replace(nome_diretorio2,"../../","") & replace(AFile.Name," ","%20")&"</option>"
	next
end function

set objFileSys = server.createobject("Scripting.FilesystemObject")
%>

[Jow Xavier 0]

é só você acrescentar mais uma diretório no seu script ...

 

nome_diretorio = server.MapPath("../../imagens/novodiretorio")

[lucasmoraes 1]

é só você acrescentar mais uma diretório no seu script ...

 

nome_diretorio = server.MapPath("../../imagens/novodiretorio")

beleza cara vlw pela resposta mas seguinte

 

preciso fazer isto de forma dinamica

por que tem pastas que nao tem o subdiretorio e tem pastas que tem mais de um subdiretorio por exemplo

 

imagens/foto.jpg

tem tbm -> imagens/pasta1/foto.jpg

e tbm pode ter - > imagens/pasta1/pasta2.jpg

imagens/pasta1/pasta2/pasta3.jpg

 

 

como eu faria isto.?