Script para eliminar subcarpetas

[rid501]

Buenas tardes:

Dispongo en XP de una carpeta RAIZ dentro de la cual hay varias subcarpetas A, B, C .... y a su vez, dentro de cada una de estas subcarpetas existe otra que se llama del mismo modo en todas ellas, pongamos BORRADOR


Lo que necesito es ayuda para crear un script en .vbs que pudiera ejecutar desde la linea de comandos para eliminar todas las subcarpetas BORRADOR que hay dentro de las subcarpetas A, B, C ....

[JoaoM]

¿Que opciones ya probaste?
¿Hasta donde llegaste?

[rid501]

Ya tengo en un array cargadas las rutas D:\Raiz\A\BORRADOR D:\Raiz\B\BORRADOR .... etc. Ahora tengo que decirle al script que verifique que la ruta existe y si existe que proceda a eliminar exclusivamente la subcarpeta BORRADOR.

Y aqui estoy atascado. Quizás tenga que cambiar el enfoque del problema.

Código:

Dim I, Objeto, Principal, Carpeta, Subcarpeta, Ruta, NameArray()
Ruta = "D:\Raiz\"
Set Objeto = CreateObject("Scripting.FileSystemObject")
Set Principal = Objeto.GetFolder(Ruta)
Set Subcarpeta = Principal.SubFolders
For Each Carpeta in Subcarpeta
    ReDim preserve NameArray(I)
        NameArray(I) = Ruta & Carpeta.Name & "\BORRADOR"
        I = I + 1
Next

For Each Carpeta In NameArray
    MsgBox Carpeta  
Next

[rid501]

Vale ya está. Simplemente era sustituir:

Código:

For Each Carpeta In NameArray     MsgBox Carpeta   Next

por

Código:

For Each Carpeta In NameArray
    If Objeto.FolderExists(Carpeta) Then
          Objeto.DeleteFolder Carpeta    
          MsgBox Carpeta & " ha sido eliminada"     
    End if
Next

... y gracias