使用 vbscript 在所有子文件夹中运行另一个 vbscript？ [复制]

Question

我正在尝试在当前目录的所有子文件夹中运行 vbscript。 到目前为止，我有：

CreateObject("Wscript.Shell").Run("""*\dirlistnew.vbs""")

但这不起作用。如果我删除 *\ 它将在当前目录中工作，但不是潜艇。我知道我错过了一些简单的东西。搜索和尝试了几个小时都无济于事。

Answer 1

从我的 sn-ps 库中得到这个，根据你的需要进行调整。 未经测试，过去几年我更喜欢 Ruby。

'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

注意，在 Ruby 中它只是一行 Dir["#{folder}/*"].each{|f| puts f if File.directory?(f) }