vb里求combobox与文件夹下的一堆文件的显示方法

提问网友发布时间：2024-03-03 03:55

我来回答

声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com

共3个回答

热心网友回答时间：2024-04-28 17:22

检查文件需要用到filelistbox控件，其Path属性用于设置文件夹路径，其Pattern用于设置文件类型，这里你需要将其设置为："*.ini"
选中combo1里面的东西很简单的，你单击不就选中了吗？

热心网友回答时间：2024-04-28 17:22

添加一个filelistbox，一个combo1,一个command1,代码如下
Private Sub Command1_Click()
Shell "Explorer.exe" + Space(1) + "D:\我的文档\我的配置\" & Combo1.Text
End Sub

Private Sub Form_Load()
File1.Visible = False
File1.Path = "D:\我的文档\我的配置"
Combo1.Text = File1.List(0)
For t& = 0 To File1.ListCount - 1
Combo1.AddItem File1.List(t&)
Next
End Sub

热心网友回答时间：2024-04-28 17:23

Private Sub Command1_Click()
Dim str1 As String, str2 As String
Open "D:\我的文档\我的配置\" & Combo1.Text For Input As #1
While Not (EOF(1))
Line Input #1, str1
str2 = str2 & vbCrLf & str1
Wend
Close
MsgBox str2
End Sub

Private Sub Form_Load()
Dim str1 As String
str1 = Dir("D:\我的文档\我的配置\*.ini", vbNormal Or vbHidden Or vbSystem)
While Len(str1)
Combo1.AddItem str1
str1 = Dir()
Wend
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决

等待解决

首页

互助专区

登录

注册

vb里求combobox与文件夹下的一堆文件的显示方法