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

Hola:

Tema resuelto, el problema estaba en que la funcion Split me retornaba los elementos del arreglo con un espacio en blanco al inicio y obviamente el nombre original del archivo que era por ejemplo: "C:\fotos\archivo1.jpg" la aplicacion lo tomaba como "C:\fotos\ archivo1.jpg" y por eso decia que el archivo no existia pues el espacio en blanco al inicio del nombre del archivo hacia que no coincidieran ambos nombres... solo tuve que agregar un "Replace" despues de asignar el elemento del arreglo a la variable "nombrearchivo", el codigo quedo de esta forma:

Código HTML:
<%
	Dim fotos,arreglo
	Dim fs,archivo,ubica,nomarchivo,nombrearchivo
	fotos=request("vectorfotos")
	arreglo=split(fotos,",")
	for i=Lbound(arreglo) to Ubound(arreglo)
		nomarchivo=arreglo(i)
		nombrearchivo=replace(nomarchivo," ","")
		ubica="fotos/"&nombrearchivo&""
		archivo = server.mappath(ubica)
		Set fs = CreateObject("Scripting.FileSystemObject")
		if fs.FileExists(archivo)=False then
			response.write("El Archivo "&archivo&" no Existe"&"<br>")
		else
			fs.DeleteFile(archivo)
		end if
	next
%> 
Y listo, de esta forma la aplicacion funciona al 100%...

Gracias a todos los que colaboraron...

Saludos...