UC知道vb6.0怎么用COMBO读取文件夹中的txt文件
来源：百度知道 编辑：UC知道 时间：2024/05/30 23:31:40
vb 怎么用COMBO读取文件夹中的.txt文件、
网友有答案：
Private Sub Form_Load()
Combo1.Clear
Dim path As String, filename As String
path = "c:\" '这里是路径名
filename = Dir(path & "*.txt")
Do Until filename = ""
Combo1.AddItem filename
filename = Dir()
Loop
End Sub
我试了试可是不行呀！！！！！！！！
还有别的办法吗！
网友有答案：
Private Sub Form_Load()
Combo1.Clear
Dim path As String, filename As String
path = "c:\" '这里是路径名
filename = Dir(path & "*.txt")
Do Until filename = ""
Combo1.AddItem filename
filename = Dir()
Loop
End Sub
我试了试可是不行呀！！！！！！！！
还有别的办法吗！
你别在Form_Load里做这个，Form_load不搭理这种执行的，在Form_Click、Command1_Click里做都可以
做在Form_Activate()里吧，这个稳当！
Option Explicit
Private Sub Form_Load()
Combo1.Clear
Dim path As String, filename As String
path = "c:\" '这里是路径名
filename = Dir(path & "*.txt")
Do Until filename = ""
Combo1.AddItem filename
filename = Dir
Loop
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
我试过可以啊