VB combo1 读取文件夹求大神帮忙急

#2

风吹过b2013-05-22 15:41

百度一个，代码多的很

程序代码：

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

自己修改一下吧。

#3

zjt2149741872013-05-22 15:46

回复楼主 zjt214974187

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

#4

zjt2149741872013-05-22 15:51

回复楼主 zjt214974187

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

#5

风吹过b2013-05-22 15:51

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

#6

zjt2149741872013-05-22 15:54

回复 5楼风吹过b

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

只有本站会员才能查看附件，请登录

多了 . 跟 ..

#7

zjt2149741872013-05-22 16:01

回复 5楼风吹过b

版主求帮忙

我有点急

#8

bczgvip2013-05-22 16:47

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
不会是连调试都不会吧？还真是新手呐。

#9

lowxiong2013-05-22 18:33

最简单办法使用文件控件。
新建一工程，在窗口上添加如下控件：一个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

#10

何时是月明2013-05-22 20:19

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

VB combo1 读取文件夹 求大神帮忙 急