I have been working on a new macro to modify all parts in adirectory. I have made a macro in the past to updated customproperties one by one. Now what I would like to do is add customproperties to all parts, at the same time. My program runs fine,but it does not add the custom info fields I have specified. I havedone it the same way in my old program, with no problems. Maybe Iam missing somethign here. I have attached the entire code as well.Maybe somehting is wrong in there.

Thanks for any help!

Here is the protion where I try and add the custom info fields:

Sub AddProperties()

Dim d As Integer
Dim t As Integer
Dim FiNa As String
Dim GU As Integer
Dim Retval As String
Dim longErr As Long, longWarn As Long
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc

GU = FormInfoFile.ListBoxOutput.ListCount

t = 0

For d = 1 To GU

PartName = FormInfoFile.ListBoxOutput.List(t, 0)
FiNa = swApp.GetCurrentWorkingDirectory + PartName
MsgBox FiNa
Set swModel = swApp.OpenDoc6(FiNa, 1, 0, " ", longErr, longWarn)

Retval = swModel.AddCustomInfo3("", "Quantity", swCustomInfoText," ")
Retval = swModel.AddCustomInfo3("", "Material", swCustomInfoText," ")
Retval = swModel.AddCustomInfo3("", "Mat'l #", swCustomInfoText, "")
Retval = swModel.AddCustomInfo3("", "Operation", swCustomInfoText," ")
Retval = swModel.AddCustomInfo3("", "Part Name", swCustomInfoText," ")
Retval = swModel.AddCustomInfo3("", "Description",swCustomInfoText, " ")
Retval = swModel.AddCustomInfo3("", "DrawnBy", swCustomInfoText, "")
Retval = swModel.AddCustomInfo3("", "DrawnDate", swCustomInfoText," ")
Retval = swModel.AddCustomInfo3("", "CheckedBy", swCustomInfoText," ")
Retval = swModel.AddCustomInfo3("", "CheckedDate",swCustomInfoText, " ")
Retval = swModel.AddCustomInfo3("", "AssyNo", swCustomInfoText, "")

t = t + 1

swModel.Save2 True
swApp.CloseDoc (PartName)

Next d

Set swApp = Nothing
Set swModel = Nothing

End SubSolidworksApi macros