[VB6 ] 如何用關鍵字搜尋檔案(以解決)
我想寫個輸入關鍵字,然後搜尋該資料夾內的檔案
目前我的做法是先搜尋該資料夾內所有檔案,
然後輸入關鍵字去分類,在由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
→
06/07 17:01, , 1F
06/07 17:01, 1F
感謝提醒
把程式改成以下方式,果然能只列出關鍵字檔案
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)
→
06/07 21:35, , 2F
06/07 21:35, 2F
→
06/08 22:24, , 3F
06/08 22:24, 3F