VB combo1 读取 当前目录下 data文件夹下面的所以文件夹 并且列在combo1里面   急！！急！！急！！急！！   求大神指点！

[ 本帖最后由 zjt214974187 于 2013-5-22 14:50 编辑 ]

百度一个，代码多的很

Dim filenames As String 
filenames = Dir("c:\", vbNormal + vbDirectory) 
Do While filenames <> "" 
Debug.Print filenames 
filenames = Dir ’再次调用dir函数,此时可以不带参数 
Loop 

自己修改一下吧。

我是个菜鸟  求写完整  真心感谢

百度上找的都是读取文件夹下的文件 没有读取文件夹的

Dim filenames As String
Combo1.Clear
filenames = Dir(App.Path & "\data", vbNormal + vbDirectory)    '此有有BUG，当程序在根目录下执行时出现错误
Do While filenames <> ""
Combo1.AddItem filenames
filenames = Dir '再次调用dir函数,此时可以不带参数
Loop

显示的是 data  然后我在 \data 后面补了 \  结果显示的是   多了 . 跟 ..

版主 求帮忙 我有点急

Dim filenames As String
Combo1.Clear
filenames = Dir(App.Path & "\data", vbNormal + vbDirectory)    '此有有BUG，当程序在根目录下执行时出现错误
Do While filenames <> ""
if left$(filenames,1) <> "." then
Combo1.AddItem filenames
endif
filenames = Dir '再次调用dir函数,此时可以不带参数
Loop
不会是连调试都不会吧？还真是新手呐。

最简单办法使用文件控件。
新建一工程，在窗口上添加如下控件：一个combobox控件combo1,一个dirlistbox控件dir1，一个filelistbox控件file1(所有控件都是默认名称），拷贝下述代码运行，机会发现combo1里的内容前面都是文件夹，后面都是文件名。
'******************************拷贝下列代码运行*****************************
Private Sub Dir1_Change()
  File1.Path = Dir1.Path  '让文件控件路径和文件夹路径一起变化
End Sub

Private Sub Form_Load()
  Dim i As Integer
  Combo1.Clear
  Dir1.Visible = False
  File1.Visible = False '让文件控件不可见
  Dir1.Path = App.Path & "\data"   '设置你所需要显示的文件夹路径
  For i = 0 To Dir1.ListCount - 1
    Combo1.AddItem Dir1.List(i)  '首先在combo1中填充所有文件夹
  Next
  For i = 0 To File1.ListCount - 1
    Combo1.AddItem File1.List(i)  '接着在combo1中填该目录下所有文件名
  Next
End Sub

你如果有现成的数据并且是少量的那就自己在属性面板里面填写，如果不是就存储在数据库中写存储过程在vb里一个循环调用就可以，哪那么麻烦！