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. 

  4. 

  5. 

  6. const filterflag=32

  7. set shell=createobject("shell.application")

  8. set re=createobject("vbscript.regexp")

  9. re.pattern="$"&front

  10. re.ignorecase=true

  11. set nowfolder=shell.namespace(foldername)

  12. call filetree(nowfolder)

  13. sub filetree(fdobject)

  14. 	set items=fdobject.items()

  15. 	items.filter filterflag,"*" 

  16. 	for each item in items

  17. 		if re.test(item.name) then wscript.echo item.path

  18. 		call filetree(item.getfolder)

  19. 	next

  20. end sub
复制代码
顶呱呱好用
接受参数：selectfolder.vbs "/foldername:c:/program files" "/front:balabala"
当然你也可以自己改一下



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