Saludos Mad;
Gracias mil de nuevo, me puse a investigar y encontré el vbsedit que es un editor para vbs y funciona al pelo.
Te confieso que no soy programador nato así que me estoy rompiendo el coco para ver como logro llevar el concepto al código.
Pues estoy claro en lo que necesito pero no se como aplicarlo, googleando encontré este script:
Dim fso, folder, subFlds, fld, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(path)
Set subFlds = folder.SubFolders
s = ""
For Each fld in subFlds
s = s & fld.name
s = s & "<br />"
Next
ShowFolderList = s
Pero cuando se ejecuta la instrucción
Set folder = fso.GetFolder(path)
me da error de Acceso Denegado.
Teoricamente este me lista las carpetas que estan al mismo nivel de donde se está ejecutando el script, luego de esto debo mover las carpetas hacia la carpeta creada. El asunto es que las carpetas a mover deben corresponder al mes de la carpeta que se creo.
De pana que mil gracias por la ayuda hermano...