新建From1（窗体），新建List1（ListBox），Command1（按钮CommandButton），代码：

Private Sub Command1_click()
    List1.Clear
    Dim strFN$, strArr$(), i&

    strFN = Dir(App.Path & "\*.json")
    Do Until strFN = ""
        strArr = Split(strFN, "\")
        strFN = strArr(UBound(strArr))
        strFN = Left(strFN, Len(strFN) - 5)
        List1.AddItem strFN
        If LCase(strFN) = "abc" Then List1.ListIndex = i
        strFN = Dir
        i = i + 1
    Loop
End Sub