Hi All,

How do I go about running the following macro on all *.SLDLFP files in the weldment profile directory - including all files in all subfolders.

<pre __default_attr="plain" __jive_macro_name="code" class="jive_text_macro jive_macro_code"><p>Dim swApp As SldWorks.SldWorks</p><p>Dim modelDoc As SldWorks.ModelDoc2</p><p></p><p> Sub main()</p><p>Dim cusPropMgr As SldWorks.CustomPropertyManager</p><p>Dim retDetails As String</p><p>Dim retDescription As String</p><p>Dim retval As Integer</p><p>Set swApp = Application.SldWorks</p><p>Set modelDoc = swApp.ActiveDoc</p><p>Set cusPropMgr = modelDoc.extension.CustomPropertyManager("")</p><p>'with this code you add a new custom property</p><p>retDescription = cusPropMgr.Get("Description")</p><p>retval = cusPropMgr.Add2("Details", swCustomInfoText, retDescription)</p><p>retval = cusPropMgr.Set("Details", retDescription)</p><p>'if you want to change an existing custom property use the code below</p><p>'retval = cusPropMgr.Set("New Number", "9")</p><p>End Sub</p>

Thank you all so much in advance!

Regards,

Jack