Have SW open files from path but also the subdirectories.

Sub main()

 

    Set swApp = Application.SldWorks

        

    Const Path As String = "C:\PDMWorks View\Sub samenstellingen\"

    sFileName = Dir(Path & "*.slddrw")

     

Dim doc         As SldWorks.ModelDoc2

Dim fileerror   As Long

Dim filewarning As Long

t = 0 'temporary

  

    Do Until sFileName = ""

    Set swApp = Application.SldWorks

    swApp.Visible = False

    Set doc = swApp.OpenDoc6(Path & sFileName, swDocDRAWING, 2, "", fileerror, filewarning)

    boolstatus = swApp.RunMacro2("D:\Spare Part Generator\Macro\MARS RDC.swp", "RDC", "main", swRunMacroDefault, False)

    sFileName = Dir

   

    t = t + 1 'temporary

    If t > 10 Then Exit Do 'temporary

   

   

    Loop

   

 

End Sub

This code works fine, but how can I modify this to also look in every subdirectory of that path?

SolidworksApi macros