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

悬崖之树

1. On Error Resume Next
   
2. Dim FileName,fs,foldername, iCount
   
3. foldername = InputBox("请输入要遍历的文件夹")
   
4. If foldername = "" Then
   
5.         wscript.quit
   
6. End If
   
7. Set fs = CreateObject("scripting.filesystemobject")
   
8. digui(foldername)'调用递归函数进行遍历
   
9. MsgBox FileName
   
10. 
    
11. '下面是递归查找函数
    
12. Function digui(path)
    
13.         Set folder = fs.getfolder(path)
    
14.         Set subfolders = folder.subfolders
    
15.         Set Files = folder.Files
    
16.         For Each i In Files
    
17.                 FileName=FileName & i.path & vbNewLine '找到则追加到变量FileName中
    
18.                 iCount = iCount + 1
    
19.                 If iCount = 10 Then
    
20.                         MsgBox FileName
    
21.                         FileName = ""
    
22.                         iCount = 0
    
23.                 End If
    
24.         Next
    
25.         For Each j In subfolders
    
26.                 digui (j.path) '递归查找子目录
    
27.         Next
    
28. End Function

复制代码

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

WHY

1. Dim ws
   
2. Set ws = CreateObject("WScript.Shell")
   
3. 
   
4. If WSH.Arguments.Count = 0 Then
   
5.     ws.Run "cscript " & chr(34) & WSH.ScriptFullName & chr(34) & " ARG", 0
   
6.     WScript.Quit
   
7. End If
   
8. 
   
9. Dim folderPath, iCount, str, objExec
   
10. folderPath = InputBox("输入要遍历的文件夹路径")
    
11. If isEmpty(folderPath) Then WScript.Quit
    
12. 
    
13. iCount = 0
    
14. str = ""
    
15. Set objExec = ws.Exec( "cmd /c dir /b /a-d /s " & chr(34) & folderPath & chr(34) )
    
16. 
    
17. Do Until objExec.StdOut.AtEndOfStream
    
18.     iCount = iCount + 1
    
19.     str = str & objExec.StdOut.ReadLine & vbLf
    
20.     If iCount Mod 10 = 0 Then
    
21.         MsgBox str
    
22.         str = ""
    
23.     End If
    
24. Loop
    
25. If str <> "" Then MsgBox str

复制代码