Error borrando carpeta con FSO

Maxon · #1 (**permalink**) 13/12/2007, 22:16

Tengo este codigo y si funciona bien.... si me borra la carpeta... pero me marca un error

......CODIGO.......

dim fs, oCarpeta, nombre_carpeta
nombre_carpeta = server.mappath("../prodimages/"&cual&"")
set fs = Server.CreateObject("Scripting.FileSystemObject")
set oCarpeta = fs.DeleteFolder(nombre_carpeta)
set oCarpeta = nothing
set fs = nothing

.......ERROR......

Microsoft VBScript runtime error '800a01a8'

Object required: 'fs.DeleteFolder(...)'

/br/panel/eliminarraiz-pro.asp, line 22

.......LINEA 22.........

set oCarpeta = fs.DeleteFolder(nombre_carpeta)

Gracias... ustedes siempre me sacan de mis apuros

Shiryu_Libra · #2 (**permalink**) 14/12/2007, 11:13

no te esta tomando el nombre de la carpeta, deberias regresar un paso antes

response.write nombre_carpeta

para saber si esta tomando bien el nombre

Maxon · #3 (**permalink**) 14/12/2007, 11:51

Pero si me borra la carpeta

Maxon · #4 (**permalink**) 14/12/2007, 12:00

Antes tengo esto

cual=request.form("cual")

donde le digo cual carpeta quiera borrar....

Maxon · #5 (**permalink**) 14/12/2007, 12:17

Listo.... ya quedo

Asi lo hice

Dim fso, f2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f2 = fso.GetFolder(Server.MapPath("../prodimages/"&cual&""))
f2.Delete

GRACIAS