Creador de carpetas!

 Do
 ruta = inputbox ("¡Escribe la ruta de tu carpeta!")
 if ruta = "" then
 msgbox "¡Te dije que escribas una ruta!"
 else
 nombre = inputbox ("¡Escribe el nombre de tu carpeta!")
 Set Carpeta=CreateObject("Scripting.FileSystemObject")
 Carpeta.CreateFolder( ruta & "\" & nombre)
 msgbox ( nombre & " creada con éxito ;)" )
exit do
end if
loop