Lesson 7.2 - file open notification

Files

Code

Modules: FilesOpenNotify21

Public listener As clsListener
    
Sub main()
    Set listener = New clsListener
    listener.connect
End Sub

Class Modules: clsListener

Dim WithEvents swApp As SldWorks.SldWorks
    
Public Function connect() As Boolean
    Set swApp = Application.SldWorks
    Debug.Print "listening started"
End Function
    
Private Function swApp_FileOpenNotify2(ByVal FileName As String) As Long
    Debug.Print FileName & " opened."
    Select Case UCase(Right(FileName, 6))
        Case "SLDASM"
            Debug.Print "Document type opened: Assembly"
        Case "SLDDRW"
            Debug.Print "Document type opened: Drawing"
        Case "SLDPRT"
            Debug.Print "Document type opened: Part"
        Case Else
            Debug.Print "Document type opened: Unknown"
    End Select
    Set listener = Nothing
    Debug.Print "listening stopped"
End Function