QTP VBS 递归遍历

Function fwAddOperationLibFolder(sFolder)
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ofd = fso.GetFolder(sFolder)
    Set fdc = ofd.SubFolders
    Set fc = ofd.Files

 For each f in fc
    If Right(f.path,4)=".vbs"  and qtLibraries.Find(f.path) = -1 Then
       qtLibraries.Add f.path, 1
        End If
 Next
 
   For each fd in fdc
     If  fd.name<>".svn" then
     Call  fwAddOperationLibFolder(fd.path)
    end if
   Next

  
End Function