<%@ Language=VBScript %> <% Dim strDirName, strMyPath, objFSO, strFolder, strFiles, intFileCount, strHost, newpath NewPath = request("changepath") ' COLOQUE AQUI A PASTA QUE VC DESEJA LISTAR: ' Formata subpasta\subpasta\ como o exemplo abaixo ' deixe em branco para listar a partir da rais do site if NewPath = "" Then NewPath = "" strDirName = Server.MapPath("/" & NewPath) strMyPath = Server.MapPath("/" & NewPath) '--------------------------------------------------------------------------------------------- Set objFSO = CreateObject("Scripting.FileSystemObject") Set strFolder = objFSO.GetFolder(strDirName) Set strFiles = strFolder.Files intFileCount = strFolder.Files.Count Dim strPath Dim objFolder Dim objItem strPath = strMyPath Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPath) if intFileCount = "0" Then Response.Write("Nenhuma pasta ou subpasta encontrado.") Else Response.Write("

") For Each objItem In objFolder.SubFolders if InStr(1, objItem, "_vti", 1) = 0 Then if Not objItem.Name = "Index.asp" Then Response.Write("
• " & objItem.Name & "
") End if End if Next For Each objItem In objFolder.Files if Not objItem.Name = "Index.asp" Then Response.Write("
• " & objItem.Name & "
") End if Next Response.Write("
") End if Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing %>