Ver Mensaje Individual
  #5 (permalink)  
Antiguo 24/07/2008, 08:35
Avatar de ciisteado
ciisteado
 
Fecha de Ingreso: enero-2008
Ubicación: Home Office
Mensajes: 111
Antigüedad: 17 años, 3 meses
Puntos: 0
Exclamación Respuesta: Problema al listar archivos y borrarlos...

Hola a todos:

Pues he conseguido meter los archivos seleccionados a un arreglo y pasarlo a la siguiente pagina(elimina.asp), pero ahora el problema es que a la hora de extraerlos solo me elimina el primer archivo y los demas no los toma en cuenta...

Este es el codigo que utilizo, ojala puedan ayudarme a ver el "horror"...

Código PHP:
<%
    
Dim fotos,arreglo 'Define variables
    Dim fs,archivo,ubica
    fotos=request("vectorfotos") '
Asigna los valores recibidos de la "eliminasolicitud.asp" a la variable "fotos"
    
arreglo=split(fotos,","'Con la funcion Split extrae los datos en formato de arreglo
    for i=Lbound(arreglo) to Ubound(arreglo) '
Recorre el arreglo y asigna cada valor a la variable "nombrearchivo"
        
nombrearchivo=arreglo(i' Asigna cada elemento del arreglo a la variable "nombrearchivo"
        ubica="fotos/"& nombrearchivo &"" ' 
Arma la ruta en la que estan almacenados los archivos
        archivo 
server.mappath(ubica' Asigna la ruta virtual a la variable archivo
        Set fs = CreateObject("Scripting.FileSystemObject") '
Crea el objeto FSO
        
if fs.FileExists(archivo)=True then ' Checa si el archivo existe lo elimina de la carpeta
            fs.DeleteFile(archivo)
        else ' 
Si el archivo NO existe manda un letrero a pantalle
            response
.write "El Archivo "archivo &" no Existe"&"<br>"
        
end if
    
next
%> 
Ya he mostrado todos los archivos en pantalla y si los recorre, pero a la hora de borrarlos solo lo hace con el primero y los siguientes archivos dice que "NO EXISTEN"....

Agradezco enormemente cualquier ayuda...

Saludos y gracias nuevamente....