用VB如何做对整个电脑文件的搜索的程序
非原创，出自个人从网络得到的资料，仅供LZ参考：
' Need a ListBox, CommandBox
Option Explicit
'宣告搜寻到的文件的储存阵列变数
Private FilePackage() As String
Private Sub Command1_Click()
'宣告存放目录名称储存阵列变数
Dim DirPackage() As String
'存放文件搜寻条件之字串
Dim SearchString As String
'接收 Dir() 传回字串，并做为回圈判断的字串
Dim DirString As String
'I 目前搜寻目录的指位器，J 是...全部
非原创，出自个人从网络得到的资料，仅供LZ参考：
' Need a ListBox, CommandBox
Option Explicit
'宣告搜寻到的文件的储存阵列变数
Private FilePackage() As String
Private Sub Command1_Click()
'宣告存放目录名称储存阵列变数
Dim DirPackage() As String
'存放文件搜寻条件之字串
Dim SearchString As String
'接收 Dir() 传回字串，并做为回圈判断的字串
Dim DirString As String
'I 目前搜寻目录的指位器，J 是 DirPackage 目录阵列之上限指标
'K 是 FilePackage 之文件阵列之上限指标
Dim I As Long, J As Long, K As Long
'把 ListBox 的旧显示资料清掉
List1。
Clear
'把 FilePackage 的上一次搜寻资料清掉
Erase FilePackage
'假设我们的搜寻从 C 碟根目录开始
ReDim DirPackage(0)
'路径结尾一定要加 "\"
DirPackage(0) = "c:\"
'假设我们的搜寻字串是 "*。
exe"
SearchString = "*。exe"
'显示沙漏指标
Me。MousePointer = 11
'-------- 以下搜寻 C 碟 所有的目录 -----------------
'直到目录指位器 I 超过目录上限指标 J 才结束搜寻
Do While I ""
'不要把上层目录和现目录的指标符号算进去
If DirString <> "。
" And DirString <> "。。" Then
'如果找到的是个目录
If (GetAttr(DirPackage(I) & DirString) And vbDirectory) _
= vbDirectory Then
'把目录上限加 1
J = J + 1
'把储存目录名称的阵列加一个
ReDim Preserve DirPackage(J)
'把查到的新目录放在 DirPackage 新元素
DirPackage(J) = DirPackage(I) + DirString + "\"
'如果找到的是个文件
Else
'如果与搜寻字串相符合
If UCase(DirString) Like UCase(SearchString) Then
'把储存文件名称的阵列加一个
ReDim Preserve FilePackage(K)
'把查到的新文件放在 filePackage 新元素
FilePackage(K) = DirPackage(I) + DirString
'把文件上限加 1
K = K + 1
End If
End If
End If
'继续找是否有符合的资料，并把结果放 DirString
DirString = Dir
DoEvents
Loop
'把现目录指标往下移一个
I = I + 1
Loop
'-------- 以下将结果输出到列示盒 -----------------
'-------- 以下为找到文件之总计 -----------------
'还原鼠标指标
Me。
MousePointer = 0
If K = 0 Then
MsgBox "没有 " & SearchString & " 的文件"
Else
'以下将结果输出到列示盒
For I = 0 To UBound(FilePackage)
List1。
AddItem FilePackage(I)
DoEvents
Next
MsgBox "总共找到 " & UBound(FilePackage) + 1 & " 个文件"
End If
End Sub
。
收起
