Question

高手指教，用下面程序搜索扩展名为txt的文件后，For Each tFil In fld.Files出现“拒绝的权限”的错误，为

Option Explicit

Dim fso As New FileSystemObject
Dim fld As Folder

Private Sub Command1_Click()
Me.MousePointer = vbHourglass
Command1.Enabled = False
Text1.Enabled = False
Text2 = ""
FindFile Dir1.Path, Text1
Text2 = Text2 & vbCrLf & "Search complete"
Text2.SelStart = Len(Text2)
Command1.Enabled = True
Text1.Enabled = True
Me.MousePointer = vbDefault

End Sub
Private Function FindFile(ByVal sFol As String, sFile As String) As Long
Dim tFld As Folder, tFil As File, FileName As String

Set fld = fso.GetFolder(sFol)
For Each tFil In fld.Files
If Mid(tFil.Name, InStrRev(tFil.Name, ".") + 1) = Text1 Then _
Text2 = Text2 & fso.BuildPath(fld.Path, tFil.Name) & vbCrLf
Text2.SelStart = Len(Text2)
DoEvents
Next

If fld.SubFolders.Count > 0 Then
For Each tFld In fld.SubFolders
DoEvents
FindFile = FindFile + FindFile(tFld.Path, sFile)
Next
End If
End Function

Private Sub Drive1_Change()
Dim sDir As String

sDir = Drive1.Drive
If InStr(sDir, "\\") <> 0 Then
sDir = Trim(Mid(sDir, InStr(sDir, "\\")))
If InStr(sDir, "]") <> 0 Then sDir = Left(sDir, InStr(sDir, "]") - 1)
ElseIf InStr(sDir, "[") <> 0 Then
sDir = Trim(Left(sDir, InStr(sDir, "[") - 1))
End If
If Right(sDir, 1) <> "\" Then sDir = sDir & "\"
Dir1.Path = sDir

End Sub

Private Sub Form_Load()
Drive1_Change

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Answer 1

由于你访问到了根目录下的System Volume Information目录，该目录的访问是受限的。你可以对fld进行判断，如果包含该目录就跳过。代码如下：
Private Function FindFile(ByVal sFol As String, sFile As String) As Long
Dim tFld As Folder, tFil As File, FileName As String

Set fld = fso.GetFolder(sFol)
If InStr(1, fld, "System Volume Information") = 0 Then
For Each tFil In fld.Files
If Mid(tFil.Name, InStrRev(tFil.Name, ".") + 1) = Text1 Then _
Text2 = Text2 & fso.BuildPath(fld.path, tFil.Name) & vbCrLf
Text2.SelStart = Len(Text2)
DoEvents
Next
If fld.SubFolders.Count > 0 Then
For Each tFld In fld.SubFolders
DoEvents
FindFile = FindFile + FindFile(tFld.path, sFile)
Next
End If
End If
End Function