Board logo

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

作者: 悬崖之树    时间: 2021-1-23 19:02     标题: 为什么vbs脚本无法遍历到所有的文件?转成exe后用管理员身份运行也不行。

本帖最后由 悬崖之树 于 2021-1-23 19:22 编辑
  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. Function digui(path)
  12. Set folder = fs.getfolder(path)
  13. Set subfolders = folder.subfolders
  14. Set Files = folder.Files
  15. For Each i In Files
  16. FileName=FileName & i.path & vbNewLine '找到则追加到变量FileName中
  17. iCount = iCount + 1
  18. If iCount = 10 Then
  19. MsgBox FileName
  20. FileName = ""
  21. iCount = 0
  22. End If
  23. Next
  24. For Each j In subfolders
  25. digui (j.path) '递归查找子目录
  26. Next
  27. End Function
复制代码
估计是脚本在运行时出现了"没有文件或文件夹权限",然后就自动停止后面的递归操作了。能否先判断一下文件或者文件夹权限后,再决定是否对该文件或文件夹进行操作?
作者: WHY    时间: 2021-1-27 10:40

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





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2