vb 获得一个文件夹下所有子文件夹名，并全部添加到组合框里，只要文件名，不要全部路径

Question

如题所述

Answer 1

添加一个Dirlistbox,Textbox，一个按钮，一个组合框...
按钮的单击事件如下

Private Sub Command1_Click()
Dim i As Integer
Dim b As Integer
Dim a As String
a = Text1.Text
Dir1.Path = a
b = Len(a)
Combo1.Clear
For i = 0 To Dir1.ListCount - 1
Combo1.AddItem (Mid(Dir1.List(i), b + 1))
Next
End Sub

运行时候，在TextBox里输入文件路径，如 C:\windows\ 这里路径后面把"\"要加上，然后，单击按钮，再查看组合框，就可以看到windows目录下了。。。
以上程序在我的机子（XP,SP2版，VB6.0企业版）上测试通过