Tema: directorios
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 22/04/2003, 18:34
Avatar de maestro
maestro
 
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>
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net

Última edición por maestro; 22/04/2003 a las 18:37