Option ExplicitDim arrPrivate Sub Command1_Click()
Dim i As Long
For i = 0 To UBound(arr)
If InStr(arr(i), Text1) = 1 Then '查到就退出,可以装入数组
MsgBox arr(i)
Exit For
End If
Next
If i = UBound(arr) + 1 Then MsgBox "未查到:" & Text1End SubPrivate Sub Form_Load()
If Dir("c:\1.t...