Listar um diretório local e geral link desses arquivos.

[stage1004 0]

Andei pesquisando mais ainda não consgui encontrar algo com que eu estou tentando fazer em ASP.

 

Precisava de uma aplicação que toda vez que a pessoa entrase no site ela atualizaria e listava os arquivos com um link de download direto na página, sem que a pessoa precisase toda vez colocar links no codigo do site..

 

A pagina será local, logo não preciso preucupar com servidor.

 

No mais é isso....alguém saberia?

[xanburzum 169]

você pode usar um sistema de download, um exemplo mais direto seria você criar a lista de arquivos atraves de FSO e disponibilizar para o user o download, neste exemplo eu listo todos os arquivos, porem esta com a opcaun de excluir no seu caso, você só altera para ele fazer o download.

 

<% Option Explicit
' declaro as variaveis
Dim fso,pasta,arquivo,arquivos,varmsg, varcolor

'recupero a var
varmsg=request.querystring("msg")
%>

<script language="javascript">
function novajan(){
window.open ("sucesso.asp","Excluido","width=180,height=200,scrollbar=no,status=yes,resize=no")
}
</script>
<%
if varmsg = 1 then 'excluido com sucesso
response.write("<script>novajan();</script>")
end if


Set fso=Server.createobject("Scripting.FileSystemObject")
Set pasta=fso.GetFolder("C:\Inetpub\wwwroot\agenda")
Set arquivo= pasta.files
%>

<TABLE BORDER="1" CELLSPACING="0" CELLPADDING="2" 
BORDERCOLOR="#000000" width="385">
<TR> 

<TD height="22" align="center" valign="middle" bgcolor="#FF9933"72"><font color="#000000" 

face="Tahoma" size="2"><B>Arquivo</B></font></TD>
<TD width="213" height="22" align="center" valign="middle" bgcolor="#FF9933"><font color="#000000" 
face="Tahoma" size="2"><B>Excluir</B></font></TD>
</TR>

<%
varcolor = True
For Each arquivos In arquivo
	if varcolor then %>
	<TR BGCOLOR="#FFFFFF"> <%
	varcolor = False
 	else %>
<TR BGCOLOR="#E1E1E1"> <%
		varcolor = True
	end if %>

<TD ALIGN="left" width="158" ><div align="center"><font face="Tahoma" size="2" color="#000000"><A HREF="C:\Inetpub\wwwroot\agenda\"<%=arquivos.name%>"> 
<%= arquivos.Name %></A></font></div></TD>


<TD ALIGN="left" width="213" ><div align="center"><font face="Tahoma" size="2" color="#000000"><A HREF="excluir_action_arq.asp?arq=<%=arquivos.name%>">Excluir</A></font></div></TD>
<%
Next 
%> 
</TR>
</TABLE>

[stage1004 0]

Hmm Muito obrigado!!!

 

So mais uma perguntinha.. Teria como implementar neste cod. algo assim:

 

o nome do arquivo la na pasta vai estar assim:

 

Autor$Titulo.doc, ai para o site queria que a saida fosse Autor - Titulo. :blink:

 

teria como fazer isso?

[xanburzum 169]

sim você pode pegar o nome do arquivo e dar um SPLIT nele, dae você pode exibilo como quiser

[stage1004 0]

sim você pode pegar o nome do arquivo e dar um SPLIT nele, dae você pode exibilo como quiser

 

 

<td class="textopreto"><%=GetIcon(item.Name, false)%> <img src="img/down.gif"> <a href="<%=scriptName & "?precommand=Download&folder=" & Server.URLEncode(folder) & "&file=" & Server.URLEncode(item.Name)%>" title="Fazer download do arquivo"><%=Split($,"-")%><%=Left(item.Name, Len(item.Name)-4)%></a></td>

 

Daria para fazaer neste código??

Nele eu ja to tirando a extensão.. com o LEFT.. agora tirar o $.. ex: Autor$Titulo...

[xanburzum 169]

dá uma pesquisada no laboraorio de script, k existe uma funcaun para pegar a extensaun, você pode adaptá-la para seu coe...