Folder.Name e File,Name

[AEM 0]

:blink: ae beleza..?

 

Tenho um codigo que lista arquivos e pastas do servidor...

 

no caso de Qualquer pasta que Tenha o nome com um espaço, o caminho pego pelo programa interpreta como no exemplo abaixo..

 

Pasta

Meus Documentos

 

Caminho

C:/Meus

 

ele não continua pegando o resto do nome da pasta ou arquivo...

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Response.Buffer=trueResponse.AddHeader "cache-control", "private"Response.AddHeader "pragma", "no-cache"Response.ExpiresAbsolute = #January 1, 1990 00:00:01#Response.Expires=Now()-1Response.AddHeader "Cache-Control", "must-revalidate"Response.AddHeader "Cache-Control", "no-cache"%><style>A:link {text-decoration:none;color:#000000;}A:visited {text-decoration:none;color:#000000;}A:hover {text-decoration:none;color:#0099CC}</style><%Local = Request.QueryString("Local")If Local = "" ThenLocal = "C:"End IF%><%Dim iLoop, limite, pagina, totalarq, iDim vlMaximo, vlMinimo, anterior'Especifica o endereço do conteúdo a ser exibidoResponse.Write "<font face=tahome size=2 color=#003399>" & Local & "<BR>"'Cria o objeto FileSystemObjectSet ObjFS = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = ObjFS.GetFolder(Local)Response.Write "<table border='1' bordercolor='gainsboro' cellpadding=2 cellspacing=0 width='100%' style='font-family: Tahoma, Arial; font-size: 11px;'>"Response.Write " <tr style='background: gainsboro'>"Response.Write " <td><b>Nome</b></td>"Response.Write " <td><b>Tipo</b></td>"Response.Write " <td><b>Tamanho em bytes</b></td>"Response.Write " <td><b>Data da última modificação</b></td>"Response.Write " </tr>"limite = 10if objFolder.SubFolders.Count > 1 Thentotalarq = ObjFolder.files.countTotalarq = Totalarq + objFolder.Subfolders.CountElsetotalarq = ObjFolder.files.countEnd IfReDim arrAvatar((totalarq-1))Dim yy = 0For Each ObjDir in ObjFolder.SubFolders'Exibe arquivos encontradosarrAvatar(y) = "<tr>"arrAvatar(y) = arrAvatar(y) + " <td><a href=diretorio3.asp?Local=" & Local & "/" & objDir.Name & "> "& objDir.Name & " </a></td>" '<<<<< veja que tanto no nome da pasta como no linke a instrução é a mesma..arrAvatar(y) = arrAvatar(y) + " <td>" & objDir.Type & "</td>"arrAvatar(y) = arrAvatar(y) + " <td align=right>" & objDir.Size & "  </td>"arrAvatar(y) = arrAvatar(y) + " <td>" & objDir.DateLastModified & "</td>"arrAvatar(y) = arrAvatar(y) + " </tr>"y = y + 1NextFor Each ObjArq in ObjFolder.Files'Exibe arquivos encontradosarrAvatar(y) = "<tr>"arrAvatar(y) = arrAvatar(y) + " <td><a href=diretorio3.asp" & "/" & objArq.Name & "> "& objArq.Name & " </a></td>"arrAvatar(y) = arrAvatar(y) + " <td>" & objArq.Type & "</td>"arrAvatar(y) = arrAvatar(y) + " <td align=right>" & objArq.Size & "  </td>"arrAvatar(y) = arrAvatar(y) + " <td>" & objArq.DateLastModified & "</td>"arrAvatar(y) = arrAvatar(y) + " </tr>"y = y + 1Nextpagina = Request("pag")IF pagina = "" ThenIF limite < UBound(arrAvatar) ThenvlMinimo = 0vlMaximo = (limite-1)ElsevlMinimo = LBound(arrAvatar)vlMaximo = UBound(arrAvatar)End IFpagina = 1anterior = ""ElsevlMinimo = (pagina*(limite-1))+(pagina)vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)IF vlMaximo > UBound(arrAvatar) Then vlMaximo = UBound(arrAvatar)pagina = pagina + 1anterior = pagina - 2IF anterior = 0 Then anterior = ""End IFFor i = vlMinimo to vlMaximoResponse.Write arrAvatar(i)NextResponse.Write "</table>"%><br><table border='1' bordercolor='gainsboro' width='20%' style='font-family: Tahoma, Arial; font-size: 11px;'><tr><%IF vlMinimo = 0 ThenIF Not (vlMaximo >= (y-1)) Then%><td><a href='diretorio3.asp?Local=<%=local%>&pag=<%=pagina%>'>Próxima ->></a></td><%End IFElseIF Not (vlMaximo >= (y-1)) Then%><td><a href='diretorio3.asp?Local=<%=local%>&pag=<%=pagina%>'>Próxima ->> </a></td><%End IF%><td><a href='diretorio3.asp?Local=<%=local%>&pag=<%=anterior%>'> <<- Anterior</a></td><%End IF%></tr></table>

Na Pagina o Nome da pasta aparece correto.. mas no link é Quebrado no espaço... sendo que a instrução é a mesma tanto pra um como pra outro...

 

vlw... se alguem souber...

[rOcKLoCo 0]

no link coloca ASPAS senão num funfa mesmoex:<a href='diretorio3.asp" & "/" & objArq.Name & "'> falows

[AEM 0]

vlw RockLoco... é o maldito costume de esquecer das aspas...... nos linkes.... geralmente eles funcionam....vlw pela força... funcionou direitinho...