Question

vb把指定目录中的所有文件名放到combobox

各位师傅，vb把指定目录中的所有文件名放到combobox中要怎样可以不显示文件后续呢？比如.TXT

以下是我的代码：但comb1里会显示？？.txt
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(App.Path & "\data")
Set fc = f.Files
For Each f1 In fc
If LCase(Right(f1.Name, 3)) = "txt" Then
Combo1.AddItem f1.Name
End If
Next
Set fso = Nothing

另，当选中此文件名后又怎么把文本内容显示到list里呢？

Answer 1

Combo1.AddItem mid(f1.Name,1,len(f1.name)-instrrev(f1.name,"."))

Answer 2

On Error Resume Next
Dim lpDir as string
lpDir = Dir(App.PATH & "/Data/*.Txt")
Do While lpDir = VbNullString
Combo1.AddItem lpDir
lpDir= Dir
Loop