If you do need to run the script near midnight, you could use:

exitTime = DateAdd("s", 60, Now())

Do While Now() < exitTime

...

But: This script seems to peg the CPU usage at...

Using recursion is an un-necessary overhead. You could achieve the same result without putting this much strain on your stack by iterating through an array:

Function CreateFolder(Path As String) As Scripting.Folder

Dim...