Llenar arreglo desde una variable para borrar archivos

[u_goldman]

A ver, si puedes borrar tanto archivos como carpetas al mismo tiempo, lo que se me ocurre es que primero tienes que saber si es un archivo o si es una carpeta para saber que método del fso vas a utilizar, supongo que la forma de identificarlos, sería que los archivos tienen una extensión...".xxx" que sería "." + "xxx", si cumple con que los 4 caracteres últimos del nombre es un . + 3 caracteres es un archivo. Se me ocurre que podemos valernos de una función que regrese true archivo, false carpeta

Function soy_archivo(item)
archivo= false
If len(item) > 4 Then
subCadena= right(item,4)
If left(subCadena, 1) = "." Then
archivo= true
Else
archivo= false
End If
Else
archivo= false
End If
que_soy= archivo
End Funtion

'Creamos el arreglo
arrItems= split(request.Form("campo"), " ,")
'Obtenemos el índice mayor
count= uBound(arrItems)

Set FSO = Server.createObject("Scripting.FileSystemObject")

'Aqui vamos borrando...
For i=0 to count
borra_item= que_soy(arrItems(i))
If borra_item Then
fso.deleteFile "ruta_archivo\" & arrItems(i)
Else
fso.deleteFolder "ruta_folder\" & arrItems(i)
End If
Next

Bueno, algo así se me ocurre...

Salu2,