作者smallsafe (PMD给我打O吧!!)
看板Visual_Basic
标题[VB6 ] 模糊搜寻档案
时间Thu Jun 7 16:47:44 2012
我想写个输入关键字,然後搜寻该资料夹内的档案
目前我的做法是先搜寻该资料夹内所有档案,
然後输入关键字去分类,在由listbox列出
p = Dir("C:\windows\system32\*.*")
Do While p <> ""
List1.AddItem p
p = Dir
loop
For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), Text1) Then
List2.AddItem List1.List(i)
End If
Next
不过现在我遇到的问题是我所需连线到的网路磁碟机里面的资料太庞大了(几万笔)
请问有办法在一开始搜寻的时候就只找我要的关键字的档案吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 112.105.196.251
1F：→ MOONRAKER:把if instr() ... 放到do loop里面不就结了 06/07 17:01
感谢提醒
把程式改成以下方式,果然能只列出关键字档案
Dim p As String
p = Dir("C:\windows\system32\*.*")
Do While p <> ""
If InStr(p, Text1) Then
List2.AddItem p
End If
p = Dir
Loop
※ 编辑: smallsafe 来自: 112.105.196.251 (06/07 19:20)
2F：→ MOONRAKER:对嘛，这不是很简单清楚 | ) 06/07 21:35
3F：→ smallsafe:真是感谢了... 06/08 22:24