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