Get Paths of Open Documents (VBA)

This example shows how to get an array of the open documents, and their paths and filenames, in the current SOLIDWORKS session.

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

' Preconditions: At least one document is

'                open in SOLIDWORKS.

'

' Postconditions: None.

----------------------------------------------

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim vModels As Variant

Dim count As Long

Dim index As Long

Sub main()

Set swApp = Application.SldWorks

count = swApp.GetDocumentCount

Debug.Print "Number of open documents in this SolidWork session: " & count

vModels = swApp.GetDocuments

For index = LBound(vModels) To UBound(vModels)

    Set swModel = vModels(index)

    Debug.Print "Path and name of open document: " & swModel.GetPathName

    Next index

End Sub