Hi,

Is there an way where I could use a macro delete the specified custom property for all the drawings in an folder. I've figured out the code to delete the custom properties for the current opened doc, but I would like to modify it to do the same for all the drawings in an folder and its sub folders.

Here is the current code that I have....

Dim swApp As SldWorks.SldWorks
Dim modelDoc As SldWorks.ModelDoc2
Dim CustomPropertyMgr As SldWorks.CustomPropertyManager

Sub main()

    Dim temp    As String
    Set swApp = Application.SldWorks
    Set modelDoc = swApp.ActiveDoc
    Set CustomPropertyMgr = modelDoc.Extension.CustomPropertyManager("")

    CustomPropertyMgr.Delete "Cust_Prop1"
    CustomPropertyMgr.Delete "Cust_Prop2"
    CustomPropertyMgr.Delete "Cust_Prop3"
    CustomPropertyMgr.Delete "Cust_Prop4"
    CustomPropertyMgr.Delete "Cust_Prop5"

    MsgBox ("Deleted 5 Custom properties from the current drawing !!!")
End Sub