File 更新组合框vba access中的项目名称

我有一些代码将存储在文件夹中的文件逐个添加到组合框中，但当我运行代码并使用组合框时，所有名称都显示为其文件扩展名（.accdb）。 有没有办法解决这个问题？谢谢你的帮助

下面是我用来将项目添加到组合框中的代码

 Private Sub Form_Load()

Dim FSOtry As FileSystemObject
Dim SourceFolder As Folder
Dim FileItem As File

Set FSOtry = New FileSystemObject
Set SourceFolder = FSOtry.GetFolder("C:\Users\melhani\Downloads\backendDBS")

For Each FileItem In SourceFolder.Files
    comboTry.AddItem (FileItem.Name)

    Next FileItem

End Sub

---

将

comboTry.AddItem（FileItem.Name）

更改为：

comboTry.AddItem Left(FileItem.Name, InStrRev(FileItem.Name, ".") - 1)

---

您可以使用这种奇特的表达方式：

comboTry.AddItem (StrReverse(Split(StrReverse(FileItem.Name), ".", 2)(1)))

---

这是一个相当扭曲的一个，但我可能会尝试一下。谢谢你的建议。其特点是，它允许在完整文件名中有多个点。