El código vbs abre todas las carpetas en la ruta especificada (cuando se desconoce el nombre de la carpeta)

Devuelve el

objeto Carpeta correspondiente según la carpeta en la ruta especificada. Sub?AddNewFolder(ruta,?nombrecarpeta)

Dim?fso,?f,?fc,?nf

Set?fso?=?CreateObject("Scripting.FileSystemObject")

Set?f?=?fso.GetFolder(ruta)

Set?fc?=?f.SubFolders

If?folderName?lt;gt;? ""?Entonces configurar?nf?=?fc.Add(nombre de carpeta)

De lo contrario, configurar?nf?=?fc.Add("¿Nueva?Carpeta")

¿Fin?Si

Fin?Sub

Puedes consultarlo