Link

[Guest Ana :)]

tenho o seguinte codigo que le e mostra o link do arquivo, mas quando clica no link não abre, não funciona...alguém poderia me ajudar...brigadim...

<%

Local = "C:\pedidos\"

'*** Cria o objeto FileSystemObject**************************

Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = ObjFS.GetFolder(Local)

set fc = objFolder.Files

'Exibe arquivos encontrados

arquivo = 1

For Each File in fc

Var = File.Name

Var = Left(var,4)

If Var = "1028" Then '**** Verifica se os arquivos obecem aquele padrão 123-

link = "<a href=c:\pedidos\"&file.name&" target=_blank><font size=1 face=Verdana>"&file.name&"</font></a>"

Response.Write link &"<BR>" &"<BR>"

End if

Var1 = File.Name

Var1 = Left(var,4)

If Var1 = "1024" Then '**** Verifica se os arquivos obecem aquele padrão 123-

link = "<a href=c:\pedidos\"&file.name&" target=_blank><font size=1 face=Verdana>"&file.name&"</font></a>"

Response.Write link &"<BR>" &"<BR>"

End if

Var2 = File.Name

Var2 = Left(var,4)

If Var2 = "1039" Then '**** Verifica se os arquivos obecem aquele padrão 123-

link = "<a href=c:\pedidos\"&file.name&" target=_blank><font size=1 face=Verdana>"&file.name&"</font></a>"

Response.Write link &"<BR>" &"<BR>"

End if

Var3 = File.Name

Var3 = Left(var,4)

If Var3 = "1050" Then '**** Verifica se os arquivos obecem aquele padrão 123-

link = "<a href=c:\pedidos\"&file.name&" target=_blank><font size=1 face=Verdana>"&file.name&"</font></a>"

Response.Write link &"<BR>" &"<BR>"

End if

Var4 = File.Name

Var4 = Left(var,4)

If Var4 = "1051" Then '**** Verifica se os arquivos obecem aquele padrão 123-

link = "<a href=c:\pedidos\"&file.name&" target=_blank><font size=1 face=Verdana>"&file.name&"</font></a>"

Response.Write link &"<BR>" &"<BR>"

End if

Next

'Elimina variáveis da memória

Set Local = Nothing

Set File = Nothing

Set objFolder = Nothing

Set Folder = Nothing

%>

[Jony Walker]

Não está funcionando no seu PC ou online ??

você não precisa colocar o endereço físico completo pro link funcionar