Copy Document Example (VBA)

This example shows how to copy a document using ISldWorks::CopyDocument.

'--------------------------------------

'

' Preconditions:

'        (1) No documents are open in the SolidWorks application.

'        (2) D:\samples\hotrod.sldprt exists.

'

' Postconditions: D:\samples\hotrod.sldprt is copied to c:\temp\hotrod.slprt. If

'         c:\temp\hotrod.sldprt already exists, it is overwritten.

'

'---------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim retVal As Long

Sub main()

Set swApp = Application.SldWorks

retVal = swApp.CopyDocument("d:\samples\hotrod.sldprt", "c:\temp\hotrod.sldprt", "", "", swMoveCopyOptionsOverwriteExistingDocs)

Debug.Print retVal

End Sub