Board logo

标题: [技术讨论] VBS如何获取开头相同的所有文件名? [打印本页]

作者: zhitingye    时间: 2023-4-20 21:48     标题: VBS如何获取开头相同的所有文件名?

电脑大概有20W文件夹需要找出指定开头的目录文件名,请教各位高手有什么好办法
作者: jyswjjgdwtdtj    时间: 2023-4-20 22:26

那就遍历呗
如果20w文件夹都在一个文件夹里 那估计得卡死
作者: newswan    时间: 2023-4-21 01:10

办法就是
  1. dir /s /b disk*
复制代码

作者: jyswjjgdwtdtj    时间: 2023-4-21 14:13

  1. foldername=wscript.arguments.named.item("foldername")
  2. front=wscript.arguments.named.item("front")
  3. const filterflag=32
  4. set shell=createobject("shell.application")
  5. set re=createobject("vbscript.regexp")
  6. re.pattern="$"&front
  7. re.ignorecase=true
  8. set nowfolder=shell.namespace(foldername)
  9. call filetree(nowfolder)
  10. sub filetree(fdobject)
  11. set items=fdobject.items()
  12. items.filter filterflag,"*"
  13. for each item in items
  14. if re.test(item.name) then wscript.echo item.path
  15. call filetree(item.getfolder)
  16. next
  17. end sub
复制代码
顶呱呱好用
接受参数:selectfolder.vbs "/foldername:c:/program files" "/front:balabala"
当然你也可以自己改一下




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