eliminar varias carpetas al mismo tiempo con FSO

[TurKa]

¿Pueden eliminarse varias carpetas al mismo tiempo utilizando FSO? ¿Como?

Muchas gracias.

[AlZuwaga]

Un ejemplo:


Carpetas = "carpeta 1, carpeta 2, carpeta 3"
Carpetas = Split(Carpetas, ",")

For i = 0 to Ubound(Carpetas)
'Acá eliminás la carpeta "Carpetas(i)" con el FSO
Next

[TurKa]

dazuga!!!!
Genio total!!!!
Mil gracias!!!

¿Puedo preguntar una cosa más???
¡dónde puedo conseguir apuntes sobre la utilización del método Ubound (¿es un método no?)?
Porque las veces que lo he utilizado lo hice sin entenderlo mucho.

Gracias!!!!!!!!!

[Relket]

HAy tienes una Web de referencia:
http://www.aspfacil.com/articulos/090201.asp

Pero para adelantar, UBound es una función que devuelve el máximo indice de un Vector, Ejemplo;
Dim Vector(2)
Vector(0) = 1
Vector(1) = 2
Vector(2) = 23
Ubound(Vector) 'Esto daría como resultado 2

Dim Vectors(5)
Ubound(Vectors) 'Esto daría como resultado 5

Si quieres tener el tamaño exacto del vector solo tienes que sumarle 1 al resultado del UBound(esto se debe a que el indice de los vectores inicia en 0), ejem;
Ubound(2) + 1 ' Esto daría como resultado 3

Eso es todo.

[AlZuwaga]

Exacto, como te comenta Relket.

Fijate que en el FOR le dije que lo haga desde 0 hasta N, donde N es el UBound.

Para el ejemplo que puse, en vez de usar UBound() podría haber hecho directamente "FOR i = 0 TO 2" porque es algo fijo (son 3 carpetas: una en la pocición 0, otra en la 1 y la tercera en la 2).

Pero como regularmente no se conoce a priori cuál será el último índice del vector se hace así: Desde el primero (0) hasta el último sin imprtar cuál sea este último (N)

[TurKa]

AHHHHHHHHHHHHHHH!!!!!!!! Perfecto!!!!!
Ya lo entendí bien.

Claro. Nunca lo había entendido. Ahora que lo entendiendo, no se imaginan cuanto se me solucionan las cosas.

Mil gracias a los dos!!!
Son unos capos!
Saludos!