acessar pdf na pasta dados

[ODIR 0]

boa tarde pessoal

 

criei uma modulo de upload para enviar arquivos sigilosos ao servidor, todos em formato .pdf, por isso achei melhor a pasta dados por ficar fora da web, porem não consigo acessar eles, tem algum codigo em especifico.

 

obs: estou tentando atraves de response.redirect

 

Obrigado

[filipefurriel 0]

posta o código.

[xanburzum 169]

qual o path que esta usando para acessar ?

[Humberto Oliveira Pinto 8]

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
For Each file In fso.GetFolder(Server.MapPath("pasta_PDF/")).Files 

if file.name = "Thumbs.db" then
else
Response.Write "<a href=""pasta_PDF/"&file.name&""">"&file.name&"</a><br>"
End If
Next
%>

[xanburzum 169]

você também pode de uma forma mais avançada usar o code tipo explorer e navegar, abrir, renomear, excluir etc com qualquer arquivo.

[ODIR 0]

filipefurriel e xanburzum

o codigo é somente o response.redirect

assim:

<%response.redirect "E:xxxxxxxx\dados\arquivo.pdf"%>

 

Oque seria uma forma mais avançada?

 

Humberto Oliveira Pinto

desculpa mas sei muito pouco de programação não consegui entender oque devo mudar no seu codigo, tenho que alterar pasta_PDF/ pelo caminho que citei acima?

 

Obrigado

[ODIR 0]

tentei a forma proposta acima mas retornou o seguinte erro:

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/AJAX_ASP/upload/cadastro/upload/uplo.asp, line 7

 

Response.Write "<a href="E:\home\xxxxxxxxx\xxxxxxxx\dados\imagens\"&file.name&"">"&file.name&"</a><br>"

-------------------------^

 

Oque devo fazer?

[Mário Monteiro 179]

As aspas duplas de dentro substitui por simples

[xanburzum 169]

antes dê um response.write em seu path ´para ver o que ele esta buscanco.

[ODIR 0]

Subistitui as aspas e retornou o seguinte erro.

 

 

Server.MapPath() error 'ASP 0172 : 80004005'

 

Invalid Path

 

/AJAX_ASP/upload/cadastro/upload/uplo.asp, line 3

 

The Path parameter for the MapPath method must be a virtual path. A physical path was used.

 

linha 3

 

For Each file In fso.GetFolder(Server.MapPath("E:\home\xxxx\xxxxx\dados\imagens\")).Files

[Mário Monteiro 179]

O erro está escrito na mensagem

 

Ou o caminho fisico ou o virtual com o Server.MapPath

 

Não pode usar o Server.MapPath com o fisico

[xanburzum 169]

Como o erro diz, você só pode usar caminhos relativos com Server.MapPath, já que o objetivo da função é gerar um path local/physical a partir de uma estrutura de web. Então, se você tem o caminho físico já, não se incomodará em chamar Server.MapPath ().

[ODIR 0]

ele localizou os dois arquivos mas nao retorna o nome nem no link

 

aparece da forma abaixo:

'&file.name&'

'&file.name&'

 

ainda acho que o erro esta nesta linha:

 

For Each file In fso.GetFolder("E:\home\xxxxxxx\xxxxxxx\dados\imagens\").Files

 

alguem sabe me ajudar?

obrigado