UC知道VB 读取某文件夹里文件名
来源：百度知道 编辑：UC知道 时间：2024/06/03 09:20:27
D盘下有一个名叫apple的文件夹，文件夹下有好多个文件,有且只有一个文件名中包含有"orange"字符，比如:"1122orange3344",如何把这个包含有"orange"字符的完整文件名,读取到msgbox输出。
MsgBox Dir("D:\apple\*orange*.*")
'添加一个filelistbox控件
Private Sub Command1_Click()
Dim fs As String, i%
For i = 0 To File1.ListCount - 1
fs = File1.List(i)
If UCase(fs) Like "*ORANGE*" Then MsgBox File1.Path & "\ " & fs
Next
End Sub
Private Sub Form_Load()
File1.Path = "d:\apple\" '设置文件夹
End Sub
dir 函数就可以了