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