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