SaveAs SolidWorks Active File at new Location with new name

Program

* For this Program, you must open any file before use this macro.


Sub main()

Dim swApp As Object
Set swApp = Application.SldWorks

Dim longstatus As Long

Dim part As Object
Set part = swApp.ActiveDoc

longstatus = part.SaveAs3("F:\DESIGN LIBRARY\New Part 8.SLDPRT", 0, 2)
swApp.CloseDoc "New Part 8"


End Sub