Título da Dica: LISTAR PASTAS E ARQUIVOS DO SERVIDOR
Postada em 11/8/2003 por ¿Gangster? ESSA FUNÇÃO ABAIXO USA O FileSystemObject PARA LISTAR TODOS ARQUIVOS E DIRETORIOS QUE ESTÃO NA RAIZ DO SITE.
Function lista() dim fso Dim arquivo Dim subdiretorio Set fso = Server.CreateObject("Scripting.FileSystemObject") For Each arquivo In fso.GetFolder(Server.MapPath("/")).Files Response.Write arquivo.Name & "<BR>" Next For Each subdiretorio In fso.GetFolder(Server.MapPath("/")).SubFolders Response.Write subdiretorio.Name & "<BR>" Next