Buscar ultimas pastas

[lizardbr 0]

Pessoal, como faço para buscar as x ultimas pastas de uma galeria de fotos usando fso?alguem tem uma dica?

[jrcardozo 4]

aqui no forum tem um exemplo de pesquisa de nome de pasta com FSO, de repente dá pra utilizar a data de criação como parâmetro....utilize a busca para localizar esse arquivo de filtro com FSO

[<%Rafael%> 0]

Salve...Tem como sim, a lógica é simples, vocêr deve fazer uma leitura das pastas do local que você quer, depois fazer o cálculo de quantas pastas tem e quantas você quer, depois é só printar a quantidade desejada...Curiosamente, fiz isso um tempo atrás..mas não estou achando o arquivo, qualquer coisa eu posto aqui!Abraços!

[<%Rafael%> 0]

Ahh não achei o arquivo, mas como é simples, ve se te ajuda, qualquer coida dá um grito!

 

<% 'Aqui você coloca a pasta padrão, que contémaspastas que você deseja listarPath = Server.MapPath("../chapeus")Set Fso = Server.CreateObject("Scripting.FileSystemObject")Set FsoFolder = Fso.GetFolder(Path)'Utilizaremos a strCount para contar a quantidade de pastas encontradas...strCount = 0'Aqui irei fazer uma contagem das "subpastas" que há no cainho especificadoFor Each Folder in FsoFolder.SubFolders	strCount = strCount + 1Next'Aqui você cria a variável que armazenará a quantidade de pastas...strTotalFolders = strCount'Aqui zerei novamente o contador pois utilizaremos ele novamente para listar as pastas...strCount = 0'Aqui você declara quantas "últimas pastas" você quer listarstrListFolders = 3'Agora fazemos um cálculo para saber a partir de qual pasta deverá começara exibirstrShowFolders = CInt(strTotalFolders) - CInt(strListFolders)'Agora fazemos a listagem de pastas...For Each Folder in FsoFolder.SubFolders	strCount = strCount + 1		If strCount > strShowFolders Then		Response.Write("Nome da Pasta: " & Folder.Name & "<br />")	End IfNext'Agora é só destruir os objetos criados...Set FsoFolder = NothingSet Fso = Nothing%>

Abraços!