在组合框更新项目名称vba access

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

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

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

来源

2017-07-25 Athos de La Fère

更改comboTry.AddItem (FileItem.Name)到：

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

来源

2017-07-25 08:48:16

这工作完全正常，非常感谢！ –

你可以使用这个花哨的表达：

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

来源

2017-07-25 09:10:57 Gustav

这是一个相当扭曲的，但我可以试试看。感谢您的建议。 –

是的。该功能是，它允许在完整的文件名多个点。 – Gustav

在组合框更新项目名称vba access

回答

相关问题