Got you this from my library of snippets, adjust to you needs.
Not tested, I'm more in to Ruby the last couple of years.
'call our sub with the desired path as option
' this needs to be a Folder object, not a String
' FSO.GetFolder will return that object given a path as string
ShowSubfolders FSO.GetFolder(path)
Sub CreateHtml(path)
' put here the code from your other script (best)
' or do your call to execute the other script
' you probably need the path so you pass it as a parameter
End Sub
Sub ShowSubFolders(Folder)
' a Folder has the method SubFolders,
' gives a collection of subfolders that can be enumerated
' with For Each construct
For Each Subfolder in Folder.SubFolders
' print the subfolder so you can follow the progress
Wscript.Echo Subfolder.Path
' and call the sub that creates the html file
CreateHtml Subfolder.Path
' here the magic of recursion, the sub is calling itself with
' as parameter the subfolder to process the subsubfolders etc
ShowSubFolders Subfolder
Next
End Sub
NB in Ruby it's just one line Dir["#{folder}/*"].each{|f| puts f if File.directory?(f) }