[问题求助] 为什么vbs脚本无法遍历到所有的文件？转成exe后用管理员身份运行也不行。

悬崖之树

On Error Resume Next
Dim FileName,fs,foldername, iCount
foldername = InputBox("请输入要遍历的文件夹")
If foldername = "" Then
	wscript.quit
End If
Set fs = CreateObject("scripting.filesystemobject")
digui(foldername)'调用递归函数进行遍历
MsgBox FileName

'下面是递归查找函数
Function digui(path)
	Set folder = fs.getfolder(path)
	Set subfolders = folder.subfolders
	Set Files = folder.Files
	For Each i In Files
		FileName=FileName & i.path & vbNewLine '找到则追加到变量FileName中
		iCount = iCount + 1
		If iCount = 10 Then 
			MsgBox FileName
			FileName = ""
			iCount = 0
		End If
	Next
	For Each j In subfolders
		digui (j.path) '递归查找子目录
	Next
End Function
复制代码

估计是脚本在运行时出现了"没有文件或文件夹权限"，然后就自动停止后面的递归操作了。能否先判断一下文件或者文件夹权限后，再决定是否对该文件或文件夹进行操作？