Dim swApp As SldWorks.SldWorks
Dim swmodel As SldWorks.ModelDoc2
Dim swpack As SldWorks.PackAndGo
Dim err As Long
Dim war As Long
Dim status As Variant
Dim bool As Boolean
Dim file(0) As String
Dim f As Variant
Set swApp = Application.SldWorks
Set swmodel = swApp.ActiveDoc
Set swpack = swmodel.Extension.GetPackAndGo
swpack.SetSaveToName True, "C:\Users\xxxx\Desktop\forum\packngo\"
file(0) = "newpart.SLDPRT"
f = file
bool = swpack.SetDocumentSaveToNames(f)
status = swmodel.Extension.SavePackAndGo(swpack)
Thanks for the warm gesture . My working scenarios is for assemblies and including drawing. So I hope pack and go should do the job without glitches. Manikandan Babu , thanks for the help . Let me check and get back to you .
Yes pack and go is more intended to use for assemblies and drawings rather than single part file.