Question

vb搜索文件夹下指定关键字的文件并打开

描述：D:\123下有多个文件夹，文件夹名形如 001-052-15252 ;002-082-35214;003-054-545610;的记事本
目标：在text1.text中输入描述中文件名的关键字，如“15252”或者“35214”或者“545610”，按下按钮1，则能打开对应关键字的记事本。

Answer 1

'好象回答过一次类似的问题,上次是打开文件夹吧?用的也是下面的代码:
Private Sub Command1_Click()
a = Dir("d:\123\", vbHidden + vbDirectory)
Do While a <> ""
If GetAttr("d:\123\" & a) <> vbDirectory Then
If InStr(a, Text1.Text) Then Shell "notepad " & "d:\123\" & a, vbNormalFocus
End If
a = Dir
Loop
End Sub

'和上次有所不同的是这两句
If GetAttr("d:\123\" & a) = vbDirectory Then '这里判断是否为文件夹,vbDirectory即vb自带的表示文件夹的vb常量
If InStr(a, Text1.Text) Then Shell "explorer " & "d:\" & a, vbNormalFocus '如果文件夹名包含text1.text里的关键字就调用explorer打开它,要注意的是关键字不唯一的话会随do循环相继打开...