Question

在VB中，如何将一个文件夹下的所有文件的文件名挨着赋值给combobox的下拉列表中？

本人VB菜鸟一只，还望回答的详细点，谢谢

Answer 1

Private Sub Command1_Click()
stri = Dir("c:\windows\*.*")
Do
Combo1.AddItem stri
stri = Dir
Loop Until stri = ""
End Sub

追问

正确答案是
Dim mypath, myname, a() As String
mypath = App.Path & "\资料数据库\*.xls"
myname = Dir(mypath, vbDirectory)
Do While myname ""
a = Split(myname, ".")
Combo1.AddItem a(0)
myname = Dir
Loop

Answer 2

还是不适合的，您还是需要注意的，祝您身体健康！