VBA - Populate ListBox With Action Recorders

[patersonc]

Is there a way to populate a ListBox with all of my Action Recorders?

[patersonc · Accepted solution]

I got it!!

There might be a cleaner way, but it works.  In case anybody want's to know, here's what I did:

Private Sub UserForm_Initialize()

     Dim ActionRecFdr As String

     ActionRecFdr = Dir(ThisDrawing.GetVariable("ACTRECPATH") & "\*.actm")

    Do While ActionRecFdr <> ""

         comActionRecorders.AddItem Left(ActionRecFdr, Len(ActionRecFdr) - 5)

        ActionRecFdr = Dir

    Loop

    comActionRecorders.ListIndex = 0

End Sub