
22/04/2003, 18:34
|
 | | | Fecha de Ingreso: febrero-2002 Ubicación: España
Mensajes: 2.364
Antigüedad: 23 años, 3 meses Puntos: 1 | |
Con esto veras todos los ficheros de un directorio y podras borrarlos haciendo click sobre ellos.
Es un sencillo explorador de archivos que puedes modificar
¿Tal vez un FAQ? muestra.asp
<%
'creacion del objeto FSO
Set filesystem = CreateObject("Scripting.FileSystemObject")
Set folder = filesystem.GetFolder(server.mappath("directorio"))
Set filecollection = folder.Files
For Each file in filecollection
%>
<a href="borra.asp?nombre=<%=file.name%>">Borrar <%=file.name%></a><br>
<%
Next
%> Borra.asp
<%
nombre=request("nombre")
'creacion del objeto FSO
on error resume next
Set FSO = CreateObject("Scripting.FileSystemObject")
set oFich = FSO.deletefile (Server.MapPath("directorio/"&nombre))
response.write("Se ha borrado el archvo " & nombre)
%>
<a href="Javascript:history.back()"><font size="1">Volver a la Pagina Anterior</font></a>
Última edición por maestro; 22/04/2003 a las 18:37 |