使用文件系统实现文件查找的问题？

[Colin_Qin]

我用文件系统来实现目录树的遍历，寻找gif文件时，当遇到
“System Volume Information”文件夹或者是安全属性被设为“拒绝evereyone”的文件夹时就会出错！错误为70
请问，如何避免这种错误？（便得程序跳过这种错误，继续搜索下去）谢谢！

代码如下：
Sub CheckFolder(strPath As String)
Dim objFolder As Scripting.Folder '文件夹对象
Dim objFile As Scripting.File '文件对象
Dim objSubdirs As Scripting.Folders '文件夹集合对象
Dim objLoopFolder As Scripting.Folder '文件夹对象
dim i as Integer
Set m_objFSO = New Scripting.FileSystemObject
Set objFolder = m_objFSO.GetFolder(strPath)

If objFolder.SubFolders = 0 Len(Dir(strPath & "\*.gif")) > 0 _ Then '检查目录中的是否有文件
i=i+1
End If

Set objSubdirs = objFolder.SubFolders
For Each objLoopFolder In objSubdirs '在所有子目录中循环，计数。
CheckFolder (objLoopFolder.Path) '递归调用CheckFolder，实现目录树的遍历。
Next objLoopFolder
Set objSubdirs = Nothing
Set objFolder = Nothing
End Sub

[逍遥鹰王]

up

[suntt]

On Error Resume Next不可以吗？？

[of123]

Sub CheckFolder(strPath As String)
Dim objFolder As Scripting.Folder '文件夹对象
Dim objFile As Scripting.File '文件对象
Dim objSubdirs As Scripting.Folders '文件夹集合对象
Dim objLoopFolder As Scripting.Folder '文件夹对象
dim i as Integer

'***************
on error goto EH
'***************
Set m_objFSO = New Scripting.FileSystemObject
Set objFolder = m_objFSO.GetFolder(strPath)

If objFolder.SubFolders = 0 Len(Dir(strPath & "\*.gif")) > 0 _ Then '检查目录中的是否有文件
i=i+1
End If

Set objSubdirs = objFolder.SubFolders
For Each objLoopFolder In objSubdirs '在所有子目录中循环，计数。
CheckFolder (objLoopFolder.Path) '递归调用CheckFolder，实现目录树的遍历。
Next objLoopFolder

endsub:
Set objSubdirs = Nothing
Set objFolder = Nothing

'*****************************
exit sub
EH:
if err.number = 70 then
resume next
else
msgbox err.number & ":" & err.Description
goto endsub
end if
End Sub

[xz8000]

up

[Colin_Qin]

of123 说的作了。又出现90的错误。

[Colin_Qin]

91:对象变量或 With 块变量未设置