VBA - Populate ListBox With Action Recorders

patersonc — Thu, 28 Feb 2013 16:53:14 GMT

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

Re: VBA - Populate ListBox With Action Recorders

patersonc — Thu, 28 Feb 2013 20:03:24 GMT

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