知道双击Dir1控件就打开了这个文件夹，但我要求助的是：
1、点击“打开”按钮后打开了这个文件夹。
2、并将这个文件夹中的所有文件名加到一个复合框Combo1的下拉列表上。
哪老师给写段代码，谢谢！！

[此贴子已经被作者于2015-12-5 10:17编辑过]

如果问题 1、一下解决不了，那就把问题改为双击Dir1控件就打开了这个文件夹，然后把打开的文件夹中的文件目录加到一个复合框（在另外一个窗体上）的下拉列表上。
Private Sub Dir1_Change()
   1、遍历打开的这个文件夹
   2、把文件目录加到复合框的下拉上
End Sub
        谢谢！

[此贴子已经被作者于2015-12-5 10:30编辑过]

天冷不想给你搞啊

如果不想用代码弄，可以直接用filelist控件，遍历该控件里的元素就得到你想要的了

filelist控件我知道，我就想用代码加到复合框下拉列表上

老师弄一下嘛，代码应该不长的！

在工程里添加drive1、dir1、combo1、command1控件各一个，复制如下代码就可以看到了：

Private Sub Command1_Click()
  Dim a As String
  Combo1.Clear
  a = Dir(Dir1.Path & "\*.*", vbNormal)
  While (a <> "")
    Combo1.AddItem a
    a = Dir
  Wend
  If Combo1.ListCount > 0 Then Combo1 = Combo1.List(0)
End Sub

Private Sub Dir1_Change()
  Command1_Click
End Sub

Private Sub Drive1_Change()
  Dir1.Path = Drive1
End Sub

谢谢老师!