[Resolvido] Excluindo arquivos de um diretório

[xanburzum 169]

Este código lista todos os arquivos de um determinado diretório e cria uma lista , juntamente com a opção de excluir, após fazer a exclusão, o user é redirecionado para a pgina onde mostar os arquivos e recebe um pop-up de confirmação da exclusão.

 

<% 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>

 

excluir_action_arq.asp

 

<% Option Explicit
' declaro as var.
dim vararq,fso,path
 vararq=request.querystring("arq")
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
   fso.DeleteFile "C:\Inetpub\wwwroot\agenda\" & vararq,false
response.Redirect("delete_arq.asp?msg=1")
   %>