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. '下面是递归查找函数

  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    时间: 2021-1-27 10:40

  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
复制代码




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